*** 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 + + * gnus.el: Pterodactyl Gnus v0.59 is released. + + 1998-12-02 01:38:31 Lars Magne Ingebrigtsen + + * 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 + + * mml.el (mml-generate-mime-1): Handle unquoting end-tags. + + 1998-12-02 00:15:30 Lars Magne Ingebrigtsen + + * 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 + + * 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 + + * mm-bodies.el (mm-decode-string): Return original string if not + decode. + + Mon Nov 30 23:38:02 1998 Shenghuo ZHU + + * mm-uu.el (mm-uu-dissect): Use mm-make-handle. + + 1998-12-01 01:53:49 François Pinard + + * nndoc.el (nndoc-mime-parts-type-p): Do related. + Tue Dec 1 00:46:20 1998 Lars Magne Ingebrigtsen * 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 + + * gnus.texi (Emacsen): Addition. + 1998-12-01 00:27:04 Lars Magne Ingebrigtsen * emacs-mime.texi (rfc2045): New.