*** pub/pgnus/lisp/gnus-art.el	Mon Nov 30 22:46:59 1998
--- pgnus/lisp/gnus-art.el	Wed Dec  2 02:46:29 1998
***************
*** 637,669 ****
       b 'intangible (cddr (memq 'intangible props)))))
  
  (defmacro gnus-with-article (article &rest forms)
!   "Select ARTICLE, copy the contents of the original article buffer to a new buffer, and then perform FORMS there.
  Then replace the article with the result."
    `(progn
       ;; We don't want the article to be marked as read.
       (let (gnus-mark-article-hook)
         (gnus-summary-select-article t t nil ,article))
       (set-buffer gnus-original-article-buffer)
!      (let ((buf (format "%s" (buffer-string))))
!        (with-temp-buffer
! 	 (insert buf)
! 	 ,@forms
! 	 (unless (gnus-request-replace-article
! 		  ,article (car gnus-article-current)
! 		  (current-buffer) t)
! 	   (error "Couldn't replace article"))
! 	 ;; The cache and backlog have to be flushed somewhat.
! 	 (when gnus-keep-backlog
! 	   (gnus-backlog-remove-article
! 	    (car gnus-article-current) (cdr gnus-article-current)))
! 	 ;; Flush original article as well.
! 	 (save-excursion
! 	   (when (get-buffer gnus-original-article-buffer)
! 	     (set-buffer gnus-original-article-buffer)
! 	     (setq gnus-original-article nil)))
! 	 (when gnus-use-cache
! 	   (gnus-cache-update-article
! 	    (car gnus-article-current) (cdr gnus-article-current)))))))
  
  (put 'gnus-with-article 'lisp-indent-function 1)
  (put 'gnus-with-article 'edebug-form-spec '(form body))
--- 637,664 ----
       b 'intangible (cddr (memq 'intangible props)))))
  
  (defmacro gnus-with-article (article &rest forms)
!   "Select ARTICLE and perform FORMS in the original article buffer.
  Then replace the article with the result."
    `(progn
       ;; We don't want the article to be marked as read.
       (let (gnus-mark-article-hook)
         (gnus-summary-select-article t t nil ,article))
       (set-buffer gnus-original-article-buffer)
!      ,@forms
!      (if (not (gnus-check-backend-function
! 	       'request-replace-article (car gnus-article-current)))
! 	 (gnus-message 5 "Read-only group; not replacing")
!        (unless (gnus-request-replace-article
! 		,article (car gnus-article-current)
! 		(current-buffer) t)
! 	 (error "Couldn't replace article")))
!      ;; The cache and backlog have to be flushed somewhat.
!      (when gnus-keep-backlog
!        (gnus-backlog-remove-article
! 	(car gnus-article-current) (cdr gnus-article-current)))
!      (when gnus-use-cache
!        (gnus-cache-update-article
! 	(car gnus-article-current) (cdr gnus-article-current)))))
  
  (put 'gnus-with-article 'lisp-indent-function 1)
  (put 'gnus-with-article 'edebug-form-spec '(form body))
***************
*** 2287,2297 ****
  
  (defvar gnus-mime-button-commands
    '((gnus-article-press-button	"\r"	"Toggle Display")
-     ;(gnus-mime-view-part	"\M-\r"	"View Interactively...")
      (gnus-mime-view-part	"v"	"View Interactively...")
      (gnus-mime-save-part	"o"	"Save...")
      (gnus-mime-copy-part	"c"	"View As Text, In Other Buffer")
      (gnus-mime-inline-part	"i"	"View As Text, In This Buffer")
      (gnus-mime-externalize-part	"e"	"View Externally")
      (gnus-mime-pipe-part	"|"	"Pipe To Command...")))
  
--- 2282,2292 ----
  
  (defvar gnus-mime-button-commands
    '((gnus-article-press-button	"\r"	"Toggle Display")
      (gnus-mime-view-part	"v"	"View Interactively...")
      (gnus-mime-save-part	"o"	"Save...")
      (gnus-mime-copy-part	"c"	"View As Text, In Other Buffer")
      (gnus-mime-inline-part	"i"	"View As Text, In This Buffer")
+     (gnus-mime-internalize-part	"E"	"View Internally")
      (gnus-mime-externalize-part	"e"	"View Externally")
      (gnus-mime-pipe-part	"|"	"Pipe To Command...")))
  
***************
*** 2355,2362 ****
    (interactive)
    (gnus-article-check-buffer)
    (let ((data (get-text-property (point) 'gnus-data))
! 	;(url-standalone-mode (not gnus-plugged))
! 	)
      (mm-interactively-view-part data)))
  
  (defun gnus-mime-copy-part (&optional handle)
--- 2350,2356 ----
    (interactive)
    (gnus-article-check-buffer)
    (let ((data (get-text-property (point) 'gnus-data))
! 	(url-standalone-mode (not gnus-plugged)))
      (mm-interactively-view-part data)))
  
  (defun gnus-mime-copy-part (&optional handle)
***************
*** 2364,2380 ****
    (interactive)
    (gnus-article-check-buffer)
    (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
! 	 (contents (mm-get-part handle))
! 	 (buffer (generate-new-buffer
! 		       (file-name-nondirectory
! 			(or
! 			 (mail-content-type-get (mm-handle-type handle) 'name)
! 			 (mail-content-type-get (mm-handle-type handle)
! 						'filename)
! 			 "*decoded*")))))
      (switch-to-buffer buffer)
      (insert contents)
!     (normal-mode)
      (goto-char (point-min))))
  
  (defun gnus-mime-inline-part (&optional charset)
--- 2358,2379 ----
    (interactive)
    (gnus-article-check-buffer)
    (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
! 	 (contents (mm-get-part handle))|
! 	 (base (file-name-nondirectory
! 		(or
! 		 (mail-content-type-get (mm-handle-type handle) 'name)
! 		 (mail-content-type-get (mm-handle-type handle)
! 					'filename)
! 		 "*decoded*")))
! 	 (buffer (generate-new-buffer base)))
      (switch-to-buffer buffer)
      (insert contents)
!     ;; We do it this way to make `normal-mode' set the appropriate mode.
!     (unwind-protect
! 	(progn
! 	  (setq buffer-file-name (expand-file-name base))
! 	  (normal-mode))
!       (setq buffer-file-name nil))
      (goto-char (point-min))))
  
  (defun gnus-mime-inline-part (&optional charset)
***************
*** 2383,2389 ****
    (gnus-article-check-buffer)
    (let* ((data (get-text-property (point) 'gnus-data))
  	 contents
! 	 ;(url-standalone-mode (not gnus-plugged))
  	 (b (point))
  	 buffer-read-only)
      (if (mm-handle-undisplayer data)
--- 2382,2388 ----
    (gnus-article-check-buffer)
    (let* ((data (get-text-property (point) 'gnus-data))
  	 contents
! 	 (url-standalone-mode (not gnus-plugged))
  	 (b (point))
  	 buffer-read-only)
      (if (mm-handle-undisplayer data)
***************
*** 2398,2409 ****
        (goto-char b))))
  
  (defun gnus-mime-externalize-part (&optional handle)
!   "Insert the MIME part under point into the current buffer."
    (interactive)
    (gnus-article-check-buffer)
    (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
! 	 ;(url-standalone-mode (not gnus-plugged))
  	 (mm-user-display-methods nil)
  	 (rfc2047-default-charset gnus-newsgroup-default-charset)
  	 (mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
      (if (mm-handle-undisplayer handle)
--- 2397,2422 ----
        (goto-char b))))
  
  (defun gnus-mime-externalize-part (&optional handle)
!   "View the MIME part under point with an external viewer."
    (interactive)
    (gnus-article-check-buffer)
    (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
! 	 (url-standalone-mode (not gnus-plugged))
  	 (mm-user-display-methods nil)
+ 	 (mm-all-images-fit t)
+ 	 (rfc2047-default-charset gnus-newsgroup-default-charset)
+ 	 (mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
+     (if (mm-handle-undisplayer handle)
+ 	(mm-remove-part handle)
+       (mm-display-part handle))))
+ 
+ (defun gnus-mime-internalize-part (&optional handle)
+   "View the MIME part under point with an internal viewer."
+   (interactive)
+   (gnus-article-check-buffer)
+   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
+ 	 (url-standalone-mode (not gnus-plugged))
+ 	 (mm-user-display-methods '(".*"))
  	 (rfc2047-default-charset gnus-newsgroup-default-charset)
  	 (mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
      (if (mm-handle-undisplayer handle)
***************
*** 2594,2600 ****
  	  (when (string-match (pop ignored) type)
  	    (throw 'ignored nil)))
  	(if (and (mm-automatic-display-p type)
! 		 (mm-inlinable-part-p type)
  		 (setq not-attachment
  		       (or (not (mm-handle-disposition handle))
  			   (equal (car (mm-handle-disposition handle))
--- 2607,2614 ----
  	  (when (string-match (pop ignored) type)
  	    (throw 'ignored nil)))
  	(if (and (mm-automatic-display-p type)
! 		 (or (mm-inlinable-part-p type)
! 		     (mm-automatic-external-display-p type))
  		 (setq not-attachment
  		       (or (not (mm-handle-disposition handle))
  			   (equal (car (mm-handle-disposition handle))
*** pub/pgnus/lisp/gnus-picon.el	Sat Aug 29 19:53:57 1998
--- pgnus/lisp/gnus-picon.el	Wed Dec  2 02:46:30 1998
***************
*** 144,151 ****
  		 (string))
    :group 'picons)
  
! (defface gnus-picons-xbm-face '((t (:foreground "black" :background "white")))
!   "Face to show X face"
    :group 'picons)
  
  ;;; Internal variables:
--- 144,155 ----
  		 (string))
    :group 'picons)
  
! (defface gnus-picons-xbm-face
!   '((((background dark))
!      (:foreground "green" :background "black"))
!     (t
!      (:foreground "black" :background "blue")))
!   "Face to show xbm picons in."
    :group 'picons)
  
  ;;; Internal variables:
*** pub/pgnus/lisp/gnus-sum.el	Mon Nov 30 22:47:00 1998
--- pgnus/lisp/gnus-sum.el	Wed Dec  2 02:46:30 1998
***************
*** 9213,9219 ****
  	(insert (format "Content-Type: multipart/mixed; boundary=\"%s\"\n"
  			separator))
  	(insert "Mime-Version: 1.0\n")
! 	(widen)))))
  
  (defun gnus-summary-toggle-display-buttonized ()
    "Toggle the buttonizing of the article buffer."
--- 9213,9221 ----
  	(insert (format "Content-Type: multipart/mixed; boundary=\"%s\"\n"
  			separator))
  	(insert "Mime-Version: 1.0\n")
! 	(widen))))
!   (let (gnus-mark-article-hook)
!     (gnus-summary-select-article t t nil article)))
  
  (defun gnus-summary-toggle-display-buttonized ()
    "Toggle the buttonizing of the article buffer."
*** pub/pgnus/lisp/gnus.el	Tue Dec  1 01:36:05 1998
--- pgnus/lisp/gnus.el	Wed Dec  2 02:46:31 1998
***************
*** 254,260 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.58"
    "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.59"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
*** pub/pgnus/lisp/mm-bodies.el	Tue Dec  1 01:36:06 1998
--- pgnus/lisp/mm-bodies.el	Wed Dec  2 02:46:31 1998
***************
*** 172,185 ****
  (defun mm-decode-string (string charset)
    "Decode STRING with CHARSET."
    (setq charset (or charset rfc2047-default-charset))
!   (when (featurep 'mule)
!     (let (mule-charset)
!       (when (and charset
! 		 (setq mule-charset (mm-charset-to-coding-system charset))
! 		 enable-multibyte-characters
! 		 (or (not (eq mule-charset 'ascii))
! 		     (setq mule-charset rfc2047-default-charset)))
! 	(mm-decode-coding-string string mule-charset)))))
  
  (provide 'mm-bodies)
  
--- 172,187 ----
  (defun mm-decode-string (string charset)
    "Decode STRING with CHARSET."
    (setq charset (or charset rfc2047-default-charset))
!   (or
!    (when (featurep 'mule)
!      (let (mule-charset)
!        (when (and charset
! 		  (setq mule-charset (mm-charset-to-coding-system charset))
! 		  enable-multibyte-characters
! 		  (or (not (eq mule-charset 'ascii))
! 		      (setq mule-charset rfc2047-default-charset)))
! 	 (mm-decode-coding-string string mule-charset))))
!    string))
  
  (provide 'mm-bodies)
  
*** pub/pgnus/lisp/mm-decode.el	Tue Dec  1 01:36:06 1998
--- pgnus/lisp/mm-decode.el	Wed Dec  2 02:46:31 1998
***************
*** 91,96 ****
--- 91,99 ----
    '("text/plain" "text/enriched" "text/richtext" "text/html" 
      "image/.*" "message/delivery-status" "multipart/.*"))
  
+ (defvar mm-user-automatic-external-display nil
+   "List of MIME type regexps that will be displayed externally automatically.")
+ 
  (defvar mm-alternative-precedence
    '("image/jpeg" "image/gif" "text/html" "text/enriched"
      "text/richtext" "text/plain")
***************
*** 99,104 ****
--- 102,110 ----
  (defvar mm-tmp-directory "/tmp/"
    "Where mm will store its temporary files.")
  
+ (defvar mm-all-images-fit nil
+   "If non-nil, then all images fit in the buffer.")
+ 
  ;;; Internal variables.
  
  (defvar mm-dissection-list nil)
***************
*** 399,404 ****
--- 405,420 ----
  	      methods nil)))
      result))
  
+ (defun mm-automatic-external-display-p (type)
+   "Return the user-defined method for TYPE."
+   (let ((methods mm-user-automatic-external-display)
+ 	method result)
+     (while (setq method (pop methods))
+       (when (string-match method type)
+ 	(setq result t
+ 	      methods nil)))
+     result))
+ 
  (defun add-mime-display-method (type method)
    "Make parts of TYPE be displayed with METHOD.
  This overrides entries in the mailcap file."
***************
*** 541,548 ****
  (defun mm-image-fit-p (handle)
    "Say whether the image in HANDLE will fit the current window."
    (let ((image (mm-get-image handle)))
!     (and (< (glyph-width image) (window-pixel-width))
!  	 (< (glyph-height image) (window-pixel-height)))))
  
  (provide 'mm-decode)
  
--- 557,565 ----
  (defun mm-image-fit-p (handle)
    "Say whether the image in HANDLE will fit the current window."
    (let ((image (mm-get-image handle)))
!     (or mm-all-images-fit
! 	(and (< (glyph-width image) (window-pixel-width))
! 	     (< (glyph-height image) (window-pixel-height))))))
  
  (provide 'mm-decode)
  
*** pub/pgnus/lisp/mm-uu.el	Fri Nov 27 13:18:58 1998
--- pgnus/lisp/mm-uu.el	Wed Dec  2 02:46:31 1998
***************
*** 118,133 ****
  			    (error nil))))
  	    (if (> start-char text-start)
  		(push
! 		 (list (mm-uu-copy-to-buffer text-start start-char) 
! 		       text-plain-type cte nil nil nil) 
  		 result))
  	    (push 
  	     (cond
  	      ((eq type 'postscript)
! 	       (list (mm-uu-copy-to-buffer start-char end-char) 
! 		     '("application/postscript") nil nil nil nil))
  	      ((eq type 'uu)
! 	       (list (mm-uu-copy-to-buffer start-char end-char) 
  		     (list (or (and file-name
  				    (string-match "\\.[^\\.]+$" file-name) 
  				    (mailcap-extension-to-mime 
--- 118,133 ----
  			    (error nil))))
  	    (if (> start-char text-start)
  		(push
! 		 (mm-make-handle (mm-uu-copy-to-buffer text-start start-char) 
! 		       text-plain-type cte) 
  		 result))
  	    (push 
  	     (cond
  	      ((eq type 'postscript)
! 	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
! 		     '("application/postscript")))
  	      ((eq type 'uu)
! 	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  		     (list (or (and file-name
  				    (string-match "\\.[^\\.]+$" file-name) 
  				    (mailcap-extension-to-mime 
***************
*** 135,144 ****
  			       "application/octet-stream"))
  		     mm-uu-decode-function nil 
  		     (if (and file-name (not (equal file-name "")))
! 			 (list "attachment" (cons 'filename file-name)))
! 		   file-name))
  	      ((eq type 'binhex)
! 	       (list (mm-uu-copy-to-buffer start-char end-char) 
  		     (list (or (and file-name
  				    (string-match "\\.[^\\.]+$" file-name) 
  				    (mailcap-extension-to-mime 
--- 135,143 ----
  			       "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
  				    (string-match "\\.[^\\.]+$" file-name) 
  				    (mailcap-extension-to-mime 
***************
*** 146,163 ****
  			       "application/octet-stream"))
  		     mm-uu-binhex-decode-function nil 
  		     (if (and file-name (not (equal file-name "")))
! 			 (list "attachment" (cons 'filename file-name)))
! 		     file-name))
  	      ((eq type 'shar)
! 	       (list (mm-uu-copy-to-buffer start-char end-char) 
! 		     '("application/x-shar") nil nil nil nil))) 
  	     result)
  	    (setq text-start end-char))))
        (when result
  	(if (> (point-max) (1+ text-start))
  	    (push
! 	     (list (mm-uu-copy-to-buffer text-start (point-max)) 
! 		   text-plain-type cte nil nil nil) 
  	     result))
  	(setq result (cons "multipart/mixed" (nreverse result))))
        result)))
--- 145,161 ----
  			       "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")))) 
  	     result)
  	    (setq text-start end-char))))
        (when result
  	(if (> (point-max) (1+ text-start))
  	    (push
! 	     (mm-make-handle (mm-uu-copy-to-buffer text-start (point-max)) 
! 		   text-plain-type cte) 
  	     result))
  	(setq result (cons "multipart/mixed" (nreverse result))))
        result)))
*** pub/pgnus/lisp/mml.el	Tue Dec  1 01:36:06 1998
--- pgnus/lisp/mml.el	Wed Dec  2 02:46:31 1998
***************
*** 129,135 ****
  (defun mml-generate-mime-1 (cont)
    (cond
     ((eq (car cont) 'part)
!     (let (coded encoding charset filename type parameters)
        (setq type (or (cdr (assq 'type cont)) "text/plain"))
        (if (equal (car (split-string type "/")) "text")
  	  (with-temp-buffer
--- 129,135 ----
  (defun mml-generate-mime-1 (cont)
    (cond
     ((eq (car cont) 'part)
!     (let (coded encoding charset filename type)
        (setq type (or (cdr (assq 'type cont)) "text/plain"))
        (if (equal (car (split-string type "/")) "text")
  	  (with-temp-buffer
***************
*** 141,147 ****
  		;; Remove quotes from quoted tags.
  		(goto-char (point-min))
  		(while (re-search-forward
! 			"<#!+\\(part\\|multipart\\|external\\)" nil t)
  		  (delete-region (+ (match-beginning 0) 2)
  				 (+ (match-beginning 0) 3)))))
  	    (setq charset (mm-encode-body)
--- 141,147 ----
  		;; Remove quotes from quoted tags.
  		(goto-char (point-min))
  		(while (re-search-forward
! 			"<#!+/?\\(part\\|multipart\\|external\\)" nil t)
  		  (delete-region (+ (match-beginning 0) 2)
  				 (+ (match-beginning 0) 3)))))
  	    (setq charset (mm-encode-body)
***************
*** 246,251 ****
--- 246,254 ----
  		    (mml-parameter-string
  		     cont '(name access-type expiration size permission)))
  	      (not (equal type "text/plain")))
+       (when (listp charset)
+ 	(error
+ 	 "Can't encode a part with several charsets.  Insert a <#part>."))
        (insert "Content-Type: " type)
        (when charset
  	(insert "; " (mail-header-encode-parameter
*** pub/pgnus/lisp/nndoc.el	Sun Oct 25 23:13:18 1998
--- pgnus/lisp/nndoc.el	Wed Dec  2 02:46:31 1998
***************
*** 453,470 ****
  	(limit (search-forward "\n\n" nil t)))
      (goto-char (point-min))
      (when (and limit
! 		(re-search-forward
! 		 (concat "\
! ^Content-Type:[ \t]*multipart/[a-z]+ *;\\(.*;\\)*"
! 			 "[ \t\n]*[ \t]boundary=\"?[^\"\n]*[^\" \t\n]")
! 	   limit t))
        t)))
  
  (defun nndoc-transform-mime-parts (article)
    (let* ((entry (cdr (assq article nndoc-dissection-alist)))
  	 (headers (nth 5 entry)))
      (when headers
!     (goto-char (point-min))
        (insert headers))))
  
  (defun nndoc-generate-mime-parts-head (article)
--- 453,470 ----
  	(limit (search-forward "\n\n" nil t)))
      (goto-char (point-min))
      (when (and limit
! 	       (re-search-forward
! 		(concat "\
! ^Content-Type:[ \t]*multipart/[a-z]+ *;\\(\\(\n[ \t]\\)?.*;\\)*"
! 			"\\(\n[ \t]\\)?[ \t]*boundary=\"?[^\"\n]*[^\" \t\n]")
! 		limit t))
        t)))
  
  (defun nndoc-transform-mime-parts (article)
    (let* ((entry (cdr (assq article nndoc-dissection-alist)))
  	 (headers (nth 5 entry)))
      (when headers
!       (goto-char (point-min))
        (insert headers))))
  
  (defun nndoc-generate-mime-parts-head (article)
*** pub/pgnus/lisp/ChangeLog	Tue Dec  1 01:36:04 1998
--- pgnus/lisp/ChangeLog	Wed Dec  2 02:46:29 1998
***************
*** 1,3 ****
--- 1,53 ----
+ Wed Dec  2 01:43:48 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Pterodactyl Gnus v0.59 is released.
+ 
+ 1998-12-02 01:38:31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* mml.el (mml-insert-mime-headers): Beep at multiple charsets.
+ 
+ 	* gnus-art.el (gnus-mime-copy-part): Set buffer-file-name.
+ 
+ 1998-11-30  Hrvoje Niksic  <hniksic@srce.hr>
+ 
+ 	* mml.el (mml-generate-mime-1): Handle unquoting end-tags.
+ 
+ 1998-12-02 00:15:30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* mm-decode.el (mm-all-images-fit): New variable.
+ 	(mm-image-fit-p): Use it.
+ 
+ 	* gnus-art.el (gnus-mime-display-single): Use it.
+ 	(gnus-mime-internalize-part): New command and keystroke.
+ 
+ 	* mm-decode.el (mm-user-automatic-external-display): New
+ 	variable. 
+ 	(mm-automatic-external-display-p): New function.
+ 
+ 	* gnus-picon.el (gnus-picons-xbm-face): Default to sensible
+ 	colors. 
+ 
+ 1998-12-01 23:52:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-sum.el (gnus-summary-repair-multipart): Reselect article. 
+ 
+ 	* gnus-art.el (gnus-with-article): Work in the original article
+ 	buffer. 
+ 	(gnus-with-article): Work in read-only groups.
+ 
+ Tue Dec  1 00:15:36 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+ 
+ 	* mm-bodies.el (mm-decode-string): Return original string if not
+ 	decode.
+ 
+ Mon Nov 30 23:38:02 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+ 
+ 	* mm-uu.el (mm-uu-dissect): Use mm-make-handle.
+ 
+ 1998-12-01 01:53:49  François Pinard  <pinard@iro.umontreal.ca>
+ 
+ 	* nndoc.el (nndoc-mime-parts-type-p): Do related.
+ 
  Tue Dec  1 00:46:20 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Pterodactyl Gnus v0.58 is released.
*** pub/pgnus/texi/emacs-mime.texi	Tue Dec  1 01:36:06 1998
--- pgnus/texi/emacs-mime.texi	Wed Dec  2 02:46:32 1998
***************
*** 276,283 ****
  @end table
  
  Currently, @code{mail-parse} is an abstraction over @code{ietf-drums},
! @code{rfc2047} and @code{rfc2231}.  These are documented in the
! subsequent sections.
  
  
  
--- 276,283 ----
  @end table
  
  Currently, @code{mail-parse} is an abstraction over @code{ietf-drums},
! @code{rfc2047}, @code{rfc2045} and @code{rfc2231}.  These are documented
! in the subsequent sections.
  
  
  
*** pub/pgnus/texi/gnus.texi	Tue Dec  1 01:36:08 1998
--- pgnus/texi/gnus.texi	Wed Dec  2 02:46:33 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.58 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.59 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 318,324 ****
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.58 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 318,324 ----
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.59 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.58.
  
  @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.59.
  
  @end ifinfo
  
***************
*** 16208,16222 ****
  @itemize @bullet
  
  @item
! Emacs 20.2 and up.
  
  @item
  XEmacs 20.4 and up.
  
  @end itemize
  
! Gnus will absolutely not work on any Emacsen older than that.  Not
! reliably, at least.
  
  There are some vague differences between Gnus on the various
  platforms---XEmacs features more graphics (a logo and a toolbar)---but
--- 16208,16223 ----
  @itemize @bullet
  
  @item
! Emacs 20.3 and up.
  
  @item
  XEmacs 20.4 and up.
  
  @end itemize
  
! This Gnus version will absolutely not work on any Emacsen older than
! that.  Not reliably, at least.  Older versions of Gnus may work on older 
! Emacs versions.
  
  There are some vague differences between Gnus on the various
  platforms---XEmacs features more graphics (a logo and a toolbar)---but
*** pub/pgnus/texi/message.texi	Tue Dec  1 01:36:08 1998
--- pgnus/texi/message.texi	Wed Dec  2 02:46:33 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.58 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.59 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 42,48 ****
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.58 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 42,48 ----
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.59 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.58.  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.59.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.
  
*** pub/pgnus/texi/ChangeLog	Tue Dec  1 01:36:08 1998
--- pgnus/texi/ChangeLog	Wed Dec  2 02:46:33 1998
***************
*** 1,3 ****
--- 1,7 ----
+ 1998-12-02 01:04:22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus.texi (Emacsen): Addition.
+ 
  1998-12-01 00:27:04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  
  	* emacs-mime.texi (rfc2045): New.
