*** pub/pgnus/lisp/gnus-art.el	Sun Dec  6 20:37:07 1998
--- pgnus/lisp/gnus-art.el	Tue Dec 15 18:31:50 1998
***************
*** 1127,1132 ****
--- 1127,1133 ----
    "Remove encoded-word encoding from headers."
    (let ((inhibit-point-motion-hooks t)
  	(rfc2047-default-charset gnus-newsgroup-default-charset)
+ 	(mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced)
  	buffer-read-only)
      (save-restriction
        (message-narrow-to-head)
***************
*** 2275,2280 ****
--- 2276,2282 ----
  	    (set-window-point (get-buffer-window (current-buffer)) (point))
  	    t))))))
  
+ ;;;###autoload
  (defun gnus-article-prepare-display ()
    "Make the current buffer look like a nice article."
    ;; Hooks for getting information from the article.
***************
*** 2539,2546 ****
  				    'filename)
  	     ""))
  	(gnus-tmp-type (car (mm-handle-type handle)))
! 	(gnus-tmp-description (or (mm-handle-description handle)
! 				  ""))
  	(gnus-tmp-dots
  	 (if (if displayed (car displayed)
  	       (mm-handle-displayed-p handle))
--- 2541,2549 ----
  				    'filename)
  	     ""))
  	(gnus-tmp-type (car (mm-handle-type handle)))
! 	(gnus-tmp-description
! 	 (mail-decode-encoded-word-string (or (mm-handle-description handle)
! 					      "")))
  	(gnus-tmp-dots
  	 (if (if displayed (car displayed)
  	       (mm-handle-displayed-p handle))
***************
*** 2617,2634 ****
  	    (delete-region (point) (point-max)))
  	  (gnus-mime-display-part handles))))))
  
  (defun gnus-mime-display-part (handle)
    (cond
     ;; Single part.
     ((not (stringp (car handle)))
      (gnus-mime-display-single handle))
     ;; multipart/alternative
!    ((equal (car handle) "multipart/alternative")
      (let ((id (1+ (length gnus-article-mime-handle-alist))))
        (push (cons id handle) gnus-article-mime-handle-alist)
        (gnus-mime-display-alternative (cdr handle) nil nil id)))
     ;; multipart/related
!    ((equal (car handle) "multipart/related")
      ;;;!!!We should find the start part, but we just default
      ;;;!!!to the first part.
      (gnus-mime-display-part (cadr handle)))
--- 2620,2641 ----
  	    (delete-region (point) (point-max)))
  	  (gnus-mime-display-part handles))))))
  
+ (defvar gnus-mime-display-multipart-as-mixed nil)
+ 
  (defun gnus-mime-display-part (handle)
    (cond
     ;; Single part.
     ((not (stringp (car handle)))
      (gnus-mime-display-single handle))
     ;; multipart/alternative
!    ((and (equal (car handle) "multipart/alternative")
! 	 (not gnus-mime-display-multipart-as-mixed))
      (let ((id (1+ (length gnus-article-mime-handle-alist))))
        (push (cons id handle) gnus-article-mime-handle-alist)
        (gnus-mime-display-alternative (cdr handle) nil nil id)))
     ;; multipart/related
!    ((and (equal (car handle) "multipart/related")
! 	 (not gnus-mime-display-multipart-as-mixed))
      ;;;!!!We should find the start part, but we just default
      ;;;!!!to the first part.
      (gnus-mime-display-part (cadr handle)))
***************
*** 3910,3916 ****
      (select-window win)))
  
  (defvar gnus-decode-header-methods
!   '(gnus-decode-with-mail-decode-encoded-word-region)
    "List of methods used to decode headers.
  
  This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item is
--- 3917,3923 ----
      (select-window win)))
  
  (defvar gnus-decode-header-methods
!   '(mail-decode-encoded-word-region)
    "List of methods used to decode headers.
  
  This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item is
***************
*** 3925,3935 ****
  ")
  
  (defvar gnus-decode-header-methods-cache nil)
- 
- (defun gnus-decode-with-mail-decode-encoded-word-region (start end)
-   (let ((rfc2047-default-charset gnus-newsgroup-default-charset)
- 	(mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
-     (mail-decode-encoded-word-region start end)))
  
  (defun gnus-multi-decode-header (start end)
    "Apply the functions from `gnus-encoded-word-methods' that match."
--- 3932,3937 ----
*** pub/pgnus/lisp/gnus-draft.el	Tue Oct 20 00:27:04 1998
--- pgnus/lisp/gnus-draft.el	Tue Dec 15 18:31:50 1998
***************
*** 115,127 ****
      (while (setq article (pop articles))
        (gnus-summary-remove-process-mark article)
        (unless (memq article gnus-newsgroup-unsendable)
! 	(gnus-draft-send article gnus-newsgroup-name)
  	(gnus-summary-mark-article article gnus-canceled-mark)))))
  
! (defun gnus-draft-send (article &optional group)
    "Send message ARTICLE."
    (gnus-draft-setup article (or group "nndraft:queue"))
!   (let ((message-syntax-checks 'dont-check-for-anything-just-trust-me)
  	message-send-hook type method)
      ;; We read the meta-information that says how and where
      ;; this message is to be sent.
--- 115,128 ----
      (while (setq article (pop articles))
        (gnus-summary-remove-process-mark article)
        (unless (memq article gnus-newsgroup-unsendable)
! 	(gnus-draft-send article gnus-newsgroup-name t)
  	(gnus-summary-mark-article article gnus-canceled-mark)))))
  
! (defun gnus-draft-send (article &optional group interactive)
    "Send message ARTICLE."
    (gnus-draft-setup article (or group "nndraft:queue"))
!   (let ((message-syntax-checks (if interactive nil
! 				 'dont-check-for-anything-just-trust-me))
  	message-send-hook type method)
      ;; We read the meta-information that says how and where
      ;; this message is to be sent.
*** pub/pgnus/lisp/gnus-picon.el	Sat Dec  5 19:34:50 1998
--- pgnus/lisp/gnus-picon.el	Tue Dec 15 18:31:50 1998
***************
*** 261,268 ****
      (setq gnus-picons-processes-alist
  	  (delq process gnus-picons-processes-alist))
      (gnus-picons-set-buffer)
!     (gnus-picons-make-annotation (make-glyph gnus-picons-x-face-file-name)
! 				 nil 'text)
      (when (file-exists-p gnus-picons-x-face-file-name)
        (delete-file gnus-picons-x-face-file-name))))
  
--- 261,268 ----
      (setq gnus-picons-processes-alist
  	  (delq process gnus-picons-processes-alist))
      (gnus-picons-set-buffer)
!     (gnus-picons-make-annotation
!      (make-glyph gnus-picons-x-face-file-name) nil 'text)
      (when (file-exists-p gnus-picons-x-face-file-name)
        (delete-file gnus-picons-x-face-file-name))))
  
***************
*** 285,292 ****
  	   nil 'text nil nil nil t)))
      ;; convert the x-face header to a .xbm file
      (let* ((process-connection-type nil)
! 	   (process (start-process-shell-command "gnus-x-face" nil 
! 						 gnus-picons-convert-x-face)))
        (push process gnus-picons-processes-alist)
        (process-kill-without-query process)
        (set-process-sentinel process 'gnus-picons-x-face-sentinel)
--- 285,292 ----
  	   nil 'text nil nil nil t)))
      ;; convert the x-face header to a .xbm file
      (let* ((process-connection-type nil)
! 	   (process (start-process-shell-command
! 		     "gnus-x-face" nil gnus-picons-convert-x-face)))
        (push process gnus-picons-processes-alist)
        (process-kill-without-query process)
        (set-process-sentinel process 'gnus-picons-x-face-sentinel)
***************
*** 618,624 ****
  ;;; picon network display functions :
  
  (defun gnus-picons-network-display-internal (sym-ann glyph part right-p)
-   (gnus-picons-set-buffer)
    (gnus-picons-display-picon-or-name glyph part right-p)
    (gnus-picons-next-job-internal))
  
--- 618,623 ----
*** pub/pgnus/lisp/gnus-sum.el	Thu Dec  3 13:55:03 1998
--- pgnus/lisp/gnus-sum.el	Tue Dec 15 18:31:51 1998
***************
*** 798,805 ****
    :type 'regexp)
  
  (defcustom gnus-default-charset 'iso-8859-1
!   "Default charset assumed to be used when viewing non-ASCII characters.
! This variable is used only in non-Mule Emacsen.")
  
  (defcustom gnus-newsgroup-default-charset-alist 
    '(("^hk\\>\\|^tw\\>\\|\\<big5\\>" . cn-big5)
--- 798,804 ----
    :type 'regexp)
  
  (defcustom gnus-default-charset 'iso-8859-1
!   "Default charset assumed to be used when viewing non-ASCII characters.")
  
  (defcustom gnus-newsgroup-default-charset-alist 
    '(("^hk\\>\\|^tw\\>\\|\\<big5\\>" . cn-big5)
***************
*** 9195,9205 ****
  ;;; MIME Commands
  ;;;
  
! (defun gnus-summary-display-buttonized ()
!   "Display the current article buffer fully MIME-buttonized."
!   (interactive)
    (require 'gnus-art)
!   (let ((gnus-unbuttonized-mime-types nil))
      (gnus-summary-show-article)))
  
  (defun gnus-summary-repair-multipart (article)
--- 9194,9207 ----
  ;;; MIME Commands
  ;;;
  
! (defun gnus-summary-display-buttonized (&optional show-all-parts)
!   "Display the current article buffer fully MIME-buttonized.  
! If SHOW-ALL-PARTS (the prefix) is non-nil, all multipart/* parts are
! treated as multipart/mixed."
!   (interactive "P")
    (require 'gnus-art)
!   (let ((gnus-unbuttonized-mime-types nil)
! 	(gnus-mime-display-multipart-as-mixed show-all-parts))
      (gnus-summary-show-article)))
  
  (defun gnus-summary-repair-multipart (article)
*** pub/pgnus/lisp/gnus-xmas.el	Sat Nov 21 09:51:16 1998
--- pgnus/lisp/gnus-xmas.el	Tue Dec 15 18:31:51 1998
***************
*** 181,187 ****
  		     (- (window-height) 2)))
  	   (top (cond ((< height 4) 0)
  		      ((< height 7) 1)
! 		      (t 2)))
  	   (bottom (save-excursion (goto-char (point-max))
  				   (forward-line (- height))
  				   (point)))
--- 181,189 ----
  		     (- (window-height) 2)))
  	   (top (cond ((< height 4) 0)
  		      ((< height 7) 1)
! 		      (t (if (numberp gnus-auto-center-summary)
! 			     gnus-auto-center-summary
! 			   2))))
  	   (bottom (save-excursion (goto-char (point-max))
  				   (forward-line (- height))
  				   (point)))
*** pub/pgnus/lisp/gnus.el	Sun Dec  6 20:37:08 1998
--- pgnus/lisp/gnus.el	Tue Dec 15 18:31:52 1998
***************
*** 254,260 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.65"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
--- 254,260 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.66"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
*** pub/pgnus/lisp/mailcap.el	Sat Dec  5 19:34:51 1998
--- pgnus/lisp/mailcap.el	Tue Dec 15 18:31:52 1998
***************
*** 126,132 ****
        (type   . "audio/*")))
      ("message"
       ("rfc-*822"
!       (viewer . gnus-article-prepare-display)
        (test   . (and (featurep 'gnus)
  		     (gnus-alive-p)))
        (type   . "message/rfc-822"))
--- 126,132 ----
        (type   . "audio/*")))
      ("message"
       ("rfc-*822"
!       (viewer . mm-view-message)
        (test   . (and (featurep 'gnus)
  		     (gnus-alive-p)))
        (type   . "message/rfc-822"))
***************
*** 714,719 ****
--- 714,720 ----
      (".nc"       . "application/x-netcdf")
      (".nc"       . "application/x-netcdf")
      (".oda"      . "application/oda")
+     (".patch"    . "application/x-patch")
      (".pbm"      . "image/x-portable-bitmap")
      (".pdf"      . "application/pdf")
      (".pgm"      . "image/portable-graymap")
*** pub/pgnus/lisp/message.el	Sat Dec  5 19:34:51 1998
--- pgnus/lisp/message.el	Tue Dec 15 18:31:52 1998
***************
*** 1307,1312 ****
--- 1307,1313 ----
    (define-key message-mode-map "\C-c\C-y" 'message-yank-original)
    (define-key message-mode-map "\C-c\C-q" 'message-fill-yanked-message)
    (define-key message-mode-map "\C-c\C-w" 'message-insert-signature)
+   (define-key message-mode-map "\C-c\M-h" 'message-insert-headers)
    (define-key message-mode-map "\C-c\C-r" 'message-caesar-buffer-body)
    (define-key message-mode-map "\C-c\C-o" 'message-sort-headers)
    (define-key message-mode-map "\C-c\M-r" 'message-rename-buffer)
***************
*** 3344,3349 ****
--- 3345,3367 ----
    (when message-draft-article
      (nndraft-request-expire-articles
       (list message-draft-article) "drafts" nil t)))
+ 
+ (defun message-insert-headers ()
+   "Generate the headers for the article."
+   (interactive)
+   (save-excursion
+     (save-restriction
+       (message-narrow-to-headers)
+       (when (message-news-p)
+ 	(message-generate-headers
+ 	 (delq 'Lines
+ 	       (delq 'Subject
+ 		     (copy-sequence message-required-news-headers)))))
+       (when (message-mail-p)
+ 	(message-generate-headers
+ 	 (delq 'Lines
+ 	       (delq 'Subject
+ 		     (copy-sequence message-required-mail-headers))))))))
  
  
  
*** pub/pgnus/lisp/mm-bodies.el	Wed Dec  2 02:46:31 1998
--- pgnus/lisp/mm-bodies.el	Tue Dec 15 18:31:52 1998
***************
*** 119,154 ****
  ;;;
  
  (defun mm-decode-content-transfer-encoding (encoding &optional type)
!   (cond
!    ((eq encoding 'quoted-printable)
!     (quoted-printable-decode-region (point-min) (point-max)))
!    ((eq encoding 'base64)
!     (prog1
! 	(condition-case ()
! 	    (base64-decode-region (point-min) (point-max))
! 	  (error nil))
!       (when (equal type "text/plain")
! 	(goto-char (point-min))
! 	(while (search-forward "\r\n" nil t)
! 	  (replace-match "\n" t t)))))
!    ((memq encoding '(7bit 8bit binary))
!     )
!    ((null encoding)
!     )
!    ((eq encoding 'x-uuencode)
!     (condition-case ()
! 	(uudecode-decode-region (point-min) (point-max))
!       (error nil)))
!    ((eq encoding 'x-binhex)
!     (condition-case ()
! 	(binhex-decode-region (point-min) (point-max))
!       (error nil)))
!    ((functionp encoding)
!     (condition-case ()
! 	(funcall encoding (point-min) (point-max))
!       (error nil)))
!    (t
!     (message "Unknown encoding %s; defaulting to 8bit" encoding))))
  
  (defun mm-decode-body (charset &optional encoding type)
    "Decode the current article that has been encoded with ENCODING.
--- 119,150 ----
  ;;;
  
  (defun mm-decode-content-transfer-encoding (encoding &optional type)
!   (prog1
!       (condition-case ()
! 	  (cond
! 	   ((eq encoding 'quoted-printable)
! 	    (quoted-printable-decode-region (point-min) (point-max)))
! 	   ((eq encoding 'base64)
! 	    (base64-decode-region (point-min) (point-max)))
! 	   ((memq encoding '(7bit 8bit binary))
! 	    )
! 	   ((null encoding)
! 	    )
! 	   ((eq encoding 'x-uuencode)
! 	    (uudecode-decode-region (point-min) (point-max)))
! 	   ((eq encoding 'x-binhex)
! 	    (binhex-decode-region (point-min) (point-max)))
! 	   ((functionp encoding)
! 	    (funcall encoding (point-min) (point-max)))
! 	   (t
! 	    (message "Unknown encoding %s; defaulting to 8bit" encoding)))
! 	(error nil))
!     (when (and
! 	   (memq encoding '(base64 x-uuencode x-binhex))
! 	   (equal type "text/plain"))
!       (goto-char (point-min))
!       (while (search-forward "\r\n" nil t)
! 	(replace-match "\n" t t)))))
  
  (defun mm-decode-body (charset &optional encoding type)
    "Decode the current article that has been encoded with ENCODING.
*** pub/pgnus/lisp/mm-decode.el	Fri Dec  4 05:09:04 1998
--- pgnus/lisp/mm-decode.el	Tue Dec 15 18:31:53 1998
***************
*** 65,70 ****
--- 65,73 ----
      ("image/xbm" mm-inline-image
       (and window-system (fboundp 'device-type)
  	  (eq (device-type) 'x)))
+     ("image/x-xbitmap" mm-inline-image
+      (and window-system (fboundp 'device-type)
+ 	  (eq (device-type) 'x)))
      ("image/xpm" mm-inline-image
       (and window-system (featurep 'xpm)))
      ("image/x-pixmap" mm-inline-image
***************
*** 236,242 ****
  	(if (eq user-method 'inline)
  	    (progn
  	      (forward-line 1)
! 	      (mm-display-inline handle))
  	  (when (or user-method
  		    method
  		    (not no-default))
--- 239,246 ----
  	(if (eq user-method 'inline)
  	    (progn
  	      (forward-line 1)
! 	      (mm-display-inline handle)
! 	      'inline)
  	  (when (or user-method
  		    method
  		    (not no-default))
***************
*** 244,249 ****
--- 248,254 ----
  		     (not method)
  		     (equal "text" (car (split-string type))))
  		(progn
+ 		  (forward-line 1)
  		  (mm-insert-inline handle (mm-get-part handle))
  		  'inline)
  	      (mm-display-external
***************
*** 558,563 ****
--- 563,570 ----
  	  (cond
  	   ((equal type "x-pixmap")
  	    "xpm")
+ 	   ((equal type "x-xbitmap")
+ 	    "xbm")
  	   (t type)))
      (or (mm-handle-cache handle)
  	(mm-with-unibyte-buffer
*** pub/pgnus/lisp/mm-encode.el	Thu Dec  3 13:55:04 1998
--- pgnus/lisp/mm-encode.el	Tue Dec 15 18:31:53 1998
***************
*** 29,35 ****
--- 29,37 ----
  
  (defvar mm-content-transfer-encoding-defaults
    '(("text/.*" quoted-printable)
+     ("message/rfc822" quoted-printable)
      ("application/emacs-lisp" 8bit)
+     ("application/x-patch" 8bit)
      (".*" base64))
    "Alist of regexps that match MIME types and their encodings.")
  
*** pub/pgnus/lisp/mm-util.el	Sat Dec  5 19:34:51 1998
--- pgnus/lisp/mm-util.el	Tue Dec 15 18:31:53 1998
***************
*** 26,35 ****
--- 26,50 ----
  
  (defvar mm-running-xemacs (string-match "XEmacs" emacs-version))
  
+ (defvar mm-running-ntemacs 
+   (and (not mm-running-xemacs) 
+        (string-match "nt" system-configuration)))
+ 
  (defvar mm-binary-coding-system 
      (if mm-running-xemacs
  	'binary 'no-conversion)
      "100% binary coding system.")   
+ 
+ (defvar mm-text-coding-system 
+   (cond 
+    ((not (fboundp 'coding-system-p)) nil)
+    (mm-running-xemacs  ;; XEmacs
+     (and (coding-system-p 'no-conversion) 'no-conversion))
+    (mm-running-ntemacs ;; NTEmacs
+     (and (coding-system-p 'raw-text-dos) 'raw-text-dos))
+    ((coding-system-p 'raw-text) 'raw-text) ;; Emacs
+    (t nil))
+   "100% text coding system, for removing ^M.")
  
  (defvar mm-default-coding-system nil
    "The default coding system to use.")  
*** pub/pgnus/lisp/mm-uu.el	Wed Dec  2 21:26:36 1998
--- pgnus/lisp/mm-uu.el	Tue Dec 15 18:31:53 1998
***************
*** 135,141 ****
  			       "application/octet-stream"))
  		     mm-uu-decode-function nil 
  		     (if (and file-name (not (equal file-name "")))
! 			 (list "attachment" (cons 'filename file-name)))))
  	      ((eq type 'binhex)
  	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  		     (list (or (and file-name
--- 135,141 ----
  			       "application/octet-stream"))
  		     mm-uu-decode-function nil 
  		     (if (and file-name (not (equal file-name "")))
! 			 (list "inline" (cons 'filename file-name)))))
  	      ((eq type 'binhex)
  	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  		     (list (or (and file-name
***************
*** 145,151 ****
  			       "application/octet-stream"))
  		     mm-uu-binhex-decode-function nil 
  		     (if (and file-name (not (equal file-name "")))
! 			 (list "attachment" (cons 'filename file-name)))))
  	      ((eq type 'shar)
  	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  		     '("application/x-shar")))) 
--- 145,151 ----
  			       "application/octet-stream"))
  		     mm-uu-binhex-decode-function nil 
  		     (if (and file-name (not (equal file-name "")))
! 			 (list "inline" (cons 'filename file-name)))))
  	      ((eq type 'shar)
  	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  		     '("application/x-shar")))) 
*** pub/pgnus/lisp/mm-view.el	Sun Dec  6 20:37:08 1998
--- pgnus/lisp/mm-view.el	Tue Dec 15 18:31:53 1998
***************
*** 130,135 ****
--- 130,142 ----
    (require 'w3)
    (w3-prepare-buffer))
  
+ (eval-and-compile
+   (autoload 'gnus-article-prepare-display "gnus-art"))
+ 
+ (defun mm-view-message ()
+   (gnus-article-prepare-display)
+   (fundamental-mode))
+ 
  (provide 'mm-view)
  
  ;; mm-view.el ends here
*** pub/pgnus/lisp/mml.el	Fri Dec  4 05:09:04 1998
--- pgnus/lisp/mml.el	Tue Dec 15 18:31:53 1998
***************
*** 337,343 ****
      (unless (eq encoding '7bit)
        (insert (format "Content-Transfer-Encoding: %s\n" encoding)))
      (when (setq description (cdr (assq 'description cont)))
!       (insert "Content-Description: " description "\n"))))
  
  (defun mml-parameter-string (cont types)
    (let ((string "")
--- 337,344 ----
      (unless (eq encoding '7bit)
        (insert (format "Content-Transfer-Encoding: %s\n" encoding)))
      (when (setq description (cdr (assq 'description cont)))
!       (insert "Content-Description: "
! 	      (mail-encode-encoded-word-string description) "\n"))))
  
  (defun mml-parameter-string (cont types)
    (let ((string "")
*** pub/pgnus/lisp/nnfolder.el	Mon Nov 30 22:47:01 1998
--- pgnus/lisp/nnfolder.el	Tue Dec 15 18:31:53 1998
***************
*** 300,306 ****
        (set-buffer nnfolder-current-buffer)
        (while (and articles is-old)
  	(goto-char (point-min))
! 	(when (nnfolder-goto-article (car articles))
  	  (if (setq is-old
  		    (nnmail-expired-article-p
  		     newsgroup
--- 300,309 ----
        (set-buffer nnfolder-current-buffer)
        (while (and articles is-old)
  	(goto-char (point-min))
! 	(when (and (nnfolder-goto-article (car articles))
! 		   (search-forward (concat "\n" nnfolder-article-marker)
! 				   nil t))
! 	  (forward-sexp)
  	  (if (setq is-old
  		    (nnmail-expired-article-p
  		     newsgroup
*** pub/pgnus/lisp/nnmail.el	Mon Nov 30 22:47:02 1998
--- pgnus/lisp/nnmail.el	Tue Dec 15 18:31:54 1998
***************
*** 501,506 ****
--- 501,510 ----
        'raw-text-dos 'binary)
    "Another coding system used in nnmail.")
  
+ (defvar nnmail-incoming-coding-system
+   mm-text-coding-system
+   "Coding system used in reading inbox")
+ 
  (defun nnmail-find-file (file)
    "Insert FILE in server buffer safely."
    (set-buffer nntp-server-buffer)
***************
*** 1007,1013 ****
        ;; Insert the incoming file.
        (set-buffer (get-buffer-create " *nnmail incoming*"))
        (erase-buffer)
!       (nnheader-insert-file-contents incoming)
        (unless (zerop (buffer-size))
  	(goto-char (point-min))
  	(save-excursion (run-hooks 'nnmail-prepare-incoming-hook))
--- 1011,1018 ----
        ;; Insert the incoming file.
        (set-buffer (get-buffer-create " *nnmail incoming*"))
        (erase-buffer)
!       (let ((nnheader-file-coding-system nnmail-incoming-coding-system))
! 	(nnheader-insert-file-contents incoming))
        (unless (zerop (buffer-size))
  	(goto-char (point-min))
  	(save-excursion (run-hooks 'nnmail-prepare-incoming-hook))
*** pub/pgnus/lisp/ChangeLog	Sun Dec  6 20:37:07 1998
--- pgnus/lisp/ChangeLog	Tue Dec 15 18:31:50 1998
***************
*** 1,3 ****
--- 1,93 ----
+ Tue Dec 15 17:31:44 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Pterodactyl Gnus v0.66 is released.
+ 
+ 1998-12-13 11:00:43  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-art.el (gnus-insert-mime-button): Decode description.
+ 
+ Sat Dec  5 16:50:49 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+ 
+ 	* gnus-art.el (article-decode-encoded-words): Rollback to 0.55.
+ 	(gnus-decode-header-methods): Ditto.
+ 	(gnus-decode-with-mail-decode-encoded-word-region): Ditto.
+ 
+ 1998-12-13 10:04:39  Lloyd Zusman  <ljz@asfast.com>
+ 
+ 	* gnus-xmas.el (gnus-xmas-summary-recenter): Allow numbers. 
+ 
+ 1998-12-13 09:32:38  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* mml.el (mml-insert-mime-headers): Encode description.
+ 
+ 	* nnfolder.el (nnfolder-request-expire-articles): Go to the date
+ 	line. 
+ 
+ 	* gnus-sum.el (gnus-default-charset): Doc fix.
+ 
+ Wed Dec  9 15:18:39 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+ 
+ 	* mm-decode.el (mm-display-part): Forward a line.
+ 
+ Wed Dec  9 13:30:29 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+ 
+ 	* mm-util.el (mm-running-ntemacs): New variable.
+ 	(mm-text-coding-system): Ditto.
+ 	* nnmail.el (nnmail-incoming-coding-system): Ditto.
+ 	(nnmail-split-incoming): Use nnmail-incoming-coding-system.
+ 
+ 1998-12-13 08:52:45  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-picon.el (gnus-picons-network-display-internal): Don't set
+ 	buffer. 
+ 
+ 	* message.el (message-insert-headers): New command and keystroke. 
+ 
+ 1998-12-07 23:42:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* mm-decode.el (mm-inline-media-tests): Recognize x-xbitmap.
+ 	(mm-get-image): Ditto.
+ 
+ 	* mm-bodies.el (mm-decode-content-transfer-encoding): Only for
+ 	base64, uudecode and binhex.
+ 
+ Sun Dec  6 21:58:31 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+ 
+ 	* mm-bodies.el (mm-decode-content-transfer-encoding): Replace CRLF
+ 	in text/plain.
+ 	* mm-uu.el (mm-uu-dissect): Use inline.
+ 
+ 1998-12-07 23:19:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* mm-view.el (mm-view-message): New function.
+ 
+ 	* mm-encode.el (mm-content-transfer-encoding-defaults): Changed to 
+ 	qp.
+ 
+ 1998-12-07  Karl Kleinpaste  <karl@justresearch.com>
+ 
+ 	* mm-encode.el (mm-content-transfer-encoding-defaults): Add an
+ 	entry for message/rfc822 as 8bit.
+ 
+ 1998-12-07 23:16:54  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* mailcap.el (mailcap-mime-extensions): Add patch.
+ 
+ 1998-12-05  Dale Hagglund  <rdh@best.com>
+ 
+ 	* gnus-sum.el (gnus-summary-display-buttonized): Use prefix
+ 	argument to force all multipart/* to look like multipart/mixed.
+ 
+ 	* gnus-art.el (gnus-mime-display-multipart-as-mixed): New
+ 	variable.
+ 	(gnus-mime-display-part): Use it.
+ 
+ 1998-12-07 22:46:37  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-draft.el (gnus-draft-send): Only disable checks for
+ 	non-interactive use.
+ 	(gnus-draft-send-message): Use it.
+ 
  Sun Dec  6 19:36:53 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Pterodactyl Gnus v0.65 is released.
*** pub/pgnus/texi/gnus.texi	Sun Dec  6 20:37:10 1998
--- pgnus/texi/gnus.texi	Tue Dec 15 18:31:55 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.65 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.66 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 318,324 ****
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.65 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 318,324 ----
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.66 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 354,360 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Pterodactyl Gnus 0.65.
  
  @end ifinfo
  
--- 354,360 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Pterodactyl Gnus 0.66.
  
  @end ifinfo
  
*** pub/pgnus/texi/message.texi	Sun Dec  6 20:37:10 1998
--- pgnus/texi/message.texi	Tue Dec 15 18:31:56 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.65 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.66 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 42,48 ****
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.65 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 42,48 ----
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.66 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 83,89 ****
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Pterodactyl Message 0.65.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.
  
--- 83,89 ----
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Pterodactyl Message 0.66.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.
  
***************
*** 446,457 ****
  just remember that @kbd{C-x u} (@code{undo}) is available and you'll be
  all right.
  
- 
  @item C-c C-w
  @kindex C-c C-w 
  @findex message-insert-signature
  Insert a signature at the end of the buffer
  (@code{message-insert-signature}).  
  
  @end table
  
--- 446,461 ----
  just remember that @kbd{C-x u} (@code{undo}) is available and you'll be
  all right.
  
  @item C-c C-w
  @kindex C-c C-w 
  @findex message-insert-signature
  Insert a signature at the end of the buffer
  (@code{message-insert-signature}).  
+ 
+ @item C-c M-h
+ @kindex C-c M-h
+ @findex message-insert-headers
+ Insert the message headers (@code{message-insert-headers}).
  
  @end table
  
*** pub/pgnus/texi/ChangeLog	Thu Dec  3 13:55:06 1998
--- pgnus/texi/ChangeLog	Tue Dec 15 18:31:56 1998
***************
*** 1,3 ****
--- 1,7 ----
+ 1998-12-13 08:54:07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* message.texi (Insertion): Add.
+ 
  1998-12-03 13:34:48  James Troup  <james@nocrew.org>
  
  	* gnus.texi (MIME Commands): Typo fix.