From: yamaoka Date: Fri, 4 Dec 1998 04:22:07 +0000 (+0000) Subject: Importing Pterodactyl Gnus v0.63. X-Git-Tag: pgnus-0_63~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=81636e7e305850408411a67b899139f96c8f3fa5;p=elisp%2Fgnus.git- Importing Pterodactyl Gnus v0.63. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3381321..a679896 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,61 @@ +Fri Dec 4 04:09:15 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.63 is released. + +1998-12-04 04:59:20 Lars Magne Ingebrigtsen + + * mml.el (mml-base-boundary): Shorten. + + * message.el (message-insert-mime-part): Use default. + + * gnus-art.el (gnus-insert-mime-button): Bind gnus-tmp-type-long. + +1998-12-03 Per Abrahamsen + + * gnus-art.el (gnus-mime-display-alternative): Use (*) for radio + buttons, not [*]. + +1998-12-04 Hrvoje Niksic + + * gnus-art.el (gnus-insert-mime-button): Do proper help-echo. + +1998-12-04 04:48:37 Hrvoje Niksic + + * gnus-art.el (gnus-insert-mime-button): Fix. + +1998-12-03 Hrvoje Niksic + + * message.el (message-insert-mime-part): Nicify prompts. + (message-insert-mime-part): Really delete duplicates. + (message-insert-mime-part): Check against common errors. + (message-insert-mime-part): Fix docstring. + +1998-12-04 04:41:58 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-mime-internalize-part): Bugged out. + +1998-12-03 Hrvoje Niksic + + * gnus-art.el (gnus-mime-button-line-format): Nicify. + (gnus-insert-mime-button): Modify accordingly. + +1998-12-04 01:50:53 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-display-mime): Set window point. + + * mm-decode.el (mm-display-external): Only decode when not + saving. + (mm-alternative-precedence): Prefer multiparts. + (mm-inline-media-tests): Inline multiparts. + + * gnus-picon.el (gnus-picons-next-job-internal): Do bar if asked. + Ignore errors when requiring url. + + * mml.el (mml-quote-region): New command. + + * message.el (message-cite-original): Use it. + (message-cite-original-without-signature): Ditto. + Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.62 is released. @@ -44,6 +102,10 @@ Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen * mm-encode.el (mm-content-transfer-encoding-defaults): Default application/emacs-lisp to 8bit. +1998-12-03 Dale Hagglund + + * mm-decode.el (mm-quote-arg): Add quoting of '()', '<>', and '|'. + Wed Dec 2 20:24:27 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.61 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 0144dee..d0a1fc8 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2292,17 +2292,19 @@ If ALL-HEADERS is non-nil, no headers are hidden." ;;; Gnus MIME viewing functions ;;; -(defvar gnus-mime-button-line-format "%{%([%p. %t%d%n]%)%}%e\n" +(defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n" "The following specs can be used: %t The MIME type +%T MIME type, along with additional info %n The `name' parameter %d The description, if any %l The length of the encoded part -%p The part identifier +%p The part identifier number %e Dots if the part isn't displayed") (defvar gnus-mime-button-line-format-alist '((?t gnus-tmp-type ?s) + (?T gnus-tmp-type-long ?s) (?n gnus-tmp-name ?s) (?d gnus-tmp-description ?s) (?p gnus-tmp-id ?s) @@ -2446,7 +2448,8 @@ If ALL-HEADERS is non-nil, no headers are hidden." (gnus-article-check-buffer) (let* ((handle (or handle (get-text-property (point) 'gnus-data))) (url-standalone-mode (not gnus-plugged)) - (mm-user-display-methods '(".*")) + (mm-user-display-methods '((".*" . inline))) + (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) @@ -2530,28 +2533,27 @@ If ALL-HEADERS is non-nil, no headers are hidden." (goto-char point)))) (defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed) - (let ((gnus-tmp-name (mail-content-type-get (mm-handle-type handle) 'name)) - (filename (mail-content-type-get (mm-handle-disposition handle) - 'filename)) + (let ((gnus-tmp-name + (or (mail-content-type-get (mm-handle-type handle) + 'name) + (mail-content-type-get (mm-handle-disposition handle) + 'filename) + "")) (gnus-tmp-type (car (mm-handle-type handle))) - (gnus-tmp-description (mm-handle-description handle)) + (gnus-tmp-description (or (mm-handle-description handle) + "")) (gnus-tmp-dots (if (if displayed (car displayed) (mm-handle-displayed-p handle)) "" "...")) - (gnus-tmp-length (save-excursion - (set-buffer (mm-handle-buffer handle)) + (gnus-tmp-length (with-current-buffer (mm-handle-buffer handle) (buffer-size))) - b e) - (setq gnus-tmp-name (or gnus-tmp-name filename)) - (setq gnus-tmp-name - (if gnus-tmp-name - (concat " (" gnus-tmp-name ")") - "")) - (setq gnus-tmp-description - (if gnus-tmp-description - (concat " (" gnus-tmp-description ")") - "")) + gnus-tmp-type-long b e) + (setq gnus-tmp-type-long (concat gnus-tmp-type + (and (not (equal gnus-tmp-name "")) + (concat "; " gnus-tmp-name)))) + (or (equal gnus-tmp-description "") + (setq gnus-tmp-type-long (concat " --- " gnus-tmp-type-long))) (unless (bolp) (insert "\n")) (setq b (point)) @@ -2564,8 +2566,21 @@ If ALL-HEADERS is non-nil, no headers are hidden." article-type annotation gnus-data ,handle)) (setq e (point)) - (widget-convert-button 'link b e :action 'gnus-widget-press-button - :button-keymap gnus-mime-button-map))) + (widget-convert-button 'link b e + :mime-handle handle + :action 'gnus-widget-press-button + :button-keymap gnus-mime-button-map + :help-echo + (lambda (widget) + ;; Needed to properly clear the message + ;; due to a bug in wid-edit + (setq help-echo-owns-message t) + (format + "Click to %s the MIME part; %s for more options" + (if (mm-handle-displayed-p + (widget-get widget :mime-handle)) + "hide" "show") + (if gnus-xemacs "button3" "mouse-3")))))) (defun gnus-widget-press-button (elems el) (goto-char (widget-get elems :from)) @@ -2576,9 +2591,13 @@ If ALL-HEADERS is non-nil, no headers are hidden." "Insert MIME buttons in the buffer." (save-excursion (save-selected-window - (let ((window (get-buffer-window gnus-article-buffer))) + (let ((window (get-buffer-window gnus-article-buffer)) + (point (point))) (when window - (select-window window))) + (select-window window) + ;; We have to do this since selecting the window + ;; may change the point. So we set the window point. + (set-window-point window point))) (let* ((handles (or ihandles (mm-dissect-buffer) (mm-uu-dissect))) handle name type b e display) (unless ihandles @@ -2737,7 +2756,7 @@ If ALL-HEADERS is non-nil, no headers are hidden." (gnus-add-text-properties (setq from (point)) (progn - (insert (format "[%c] %-18s" + (insert (format "(%c) %-18s" (if (equal handle preferred) ?* ? ) (if (stringp (car handle)) (car handle) diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index 9ccbf4e..6db18cb 100644 --- a/lisp/gnus-picon.el +++ b/lisp/gnus-picon.el @@ -514,8 +514,10 @@ none, and whose CDR is the corresponding element of DOMAINS." ;;; Query a remote DB. This requires some stuff from w3 ! -(require 'url) -(require 'w3-forms) +(eval-and-compile + (ignore-errors + (require 'url) + (require 'w3-forms))) (defun gnus-picons-url-retrieve (url fn arg) (let ((old-asynch (default-value 'url-be-asynchronous)) @@ -731,30 +733,31 @@ none, and whose CDR is the corresponding element of DOMAINS." ;;; Main jobs dispatcher function (defun gnus-picons-next-job-internal () - (if (setq gnus-picons-job-already-running (pop gnus-picons-jobs-alist)) - (let* ((job gnus-picons-job-already-running) - (sym-ann (pop job)) - (tag (pop job))) - (if tag - (cond ((stringp tag);; (SYM-ANN "..." RIGHT-P) - (gnus-picons-network-display-internal sym-ann nil tag - (pop job))) - ((and (eq 'bar tag) - gnus-picons-display-article-move-p) - (gnus-picons-network-display-internal - sym-ann - (let ((gnus-picons-file-suffixes '("xbm"))) - (gnus-picons-try-face - gnus-xmas-glyph-directory "bar.")) - nil (pop job))) - ((eq 'search tag);; (SYM-ANN 'search USER ADDRS DBS RIGHT-P) - (gnus-picons-network-search - (pop job) (pop job) (pop job) sym-ann (pop job))) - ((eq 'picon tag);; (SYM-ANN 'picon URL PART RIGHT-P) - (gnus-picons-network-display - (pop job) (pop job) sym-ann (pop job))) - (t (setq gnus-picons-job-already-running nil) - (error "Unknown picon job tag %s" tag))))))) + (when (setq gnus-picons-job-already-running (pop gnus-picons-jobs-alist)) + (let* ((job gnus-picons-job-already-running) + (sym-ann (pop job)) + (tag (pop job))) + (when tag + (cond + ((stringp tag);; (SYM-ANN "..." RIGHT-P) + (gnus-picons-network-display-internal + sym-ann nil tag (pop job))) + ((eq 'bar tag) + (gnus-picons-network-display-internal + sym-ann + (let ((gnus-picons-file-suffixes '("xbm"))) + (gnus-picons-try-face + gnus-xmas-glyph-directory "bar.")) + nil (pop job))) + ((eq 'search tag);; (SYM-ANN 'search USER ADDRS DBS RIGHT-P) + (gnus-picons-network-search + (pop job) (pop job) (pop job) sym-ann (pop job))) + ((eq 'picon tag);; (SYM-ANN 'picon URL PART RIGHT-P) + (gnus-picons-network-display + (pop job) (pop job) sym-ann (pop job))) + (t + (setq gnus-picons-job-already-running nil) + (error "Unknown picon job tag %s" tag))))))) (defun gnus-picons-next-job () "Start processing the job queue if it is not in progress." diff --git a/lisp/gnus.el b/lisp/gnus.el index 879d239..c382937 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -254,7 +254,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "0.62" +(defconst gnus-version-number "0.63" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) diff --git a/lisp/message.el b/lisp/message.el index c957f49..32d909f 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1320,7 +1320,8 @@ Point is left at the beginning of the narrowed-to region." (define-key message-mode-map "\C-c\C-a" 'message-insert-mime-part) (define-key message-mode-map "\C-c\C-m\C-a" 'message-insert-mime-part) (define-key message-mode-map "\C-c\C-m\C-e" 'message-mime-insert-external) - + (define-key message-mode-map "\C-c\C-m\C-q" 'mml-quote-region) + (define-key message-mode-map "\t" 'message-tab)) (easy-menu-define @@ -1854,11 +1855,7 @@ prefix, and don't delete any headers." (if (listp message-indent-citation-function) message-indent-citation-function (list message-indent-citation-function))))) - (goto-char start) - ;; Quote parts. - (while (re-search-forward "<#/?!*\\(multipart\\|part\\|external\\)" end t) - (goto-char (match-beginning 1)) - (insert "!")) + (mml-quote-region start end) (goto-char end) (when (re-search-backward "^-- $" start t) ;; Also peel off any blank lines before the signature. @@ -1888,12 +1885,7 @@ prefix, and don't delete any headers." (if (listp message-indent-citation-function) message-indent-citation-function (list message-indent-citation-function))))) - (goto-char start) - ;; Quote parts. - (while (re-search-forward - "<#/?!*\\(multipart\\|part\\|external\\)" end t) - (goto-char (match-beginning 1)) - (insert "!")) + (mml-quote-region start end) (goto-char start) (while functions (funcall (pop functions))) @@ -4131,24 +4123,50 @@ regexp varstr." ;;; MIME functions ;;; + +;; I really think this function should be renamed. It is only useful +;; for inserting file attachments. + (defun message-insert-mime-part (file type description) - "Insert a multipart/alternative part into the buffer." + "Attach a file to the outgoing MIME message. +The file is not inserted or encoded until you send the message with +`\\[message-send-and-exit]' or `\\[message-send]'. + +FILE is the name of the file to attach. TYPE is its content-type, a +string of the form \"type/subtype\". DESCRIPTION is a one-line +description of the attachment." (interactive - (let* ((file (read-file-name "Insert file: " nil nil t)) - (type (mm-default-file-encoding file))) - (list file - (completing-read - (format "MIME type for %s: " file) - (delete-duplicates - (mapcar (lambda (m) (list (cdr m))) mailcap-mime-extensions)) - nil nil type) - (read-string "Description: ")))) - (insert (format "<#part type=%s filename=\"%s\"%s><#/part>\n" - type file - (if (zerop (length description)) - "" - (format " description=%s" - (prin1-to-string description)))))) + (let* ((file (read-file-name "Attach file: " nil nil t)) + (type (completing-read + (format "Content type (default %s): " + (or (mm-default-file-encoding file) + ;; Perhaps here we should check + ;; what the file looks like, and + ;; offer text/plain if it looks + ;; like text/plain. + "application/octet-stream")) + (delete-duplicates + (mapcar (lambda (m) (list (cdr m))) mailcap-mime-extensions) + :test 'equal))) + (description (read-string "One line description: "))) + (list file type description))) + (when (string-match "\\`[ \t]*\\'" description) + (setq description nil)) + (when (string-match "\\`[ \t]*\\'" type) + (setq type (mm-default-file-encoding file))) nil + ;; Prevent some common errors. This is inspired by similar code in + ;; VM. + (when (file-directory-p file) + (error "%s is a directory, cannot attach" file)) + (unless (file-exists-p file) + (error "No such file: %s" file)) + (unless (file-readable-p file) + (error "Permission denied: %s" file)) + (insert (format "<#part type=%s filename=%s%s><#/part>\n" + type (prin1-to-string file) + (if description + (format " description=%s" (prin1-to-string description)) + "")))) (defun message-mime-insert-external (file type) "Insert a message/external-body part into the buffer." diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 06d6e29..ae221ae 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -81,7 +81,10 @@ (device-sound-enabled-p))) ("audio/au" mm-inline-audio (and (or (featurep 'nas-sound) (featurep 'native-sound)) - (device-sound-enabled-p)))) + (device-sound-enabled-p))) + ("multipart/alternative" ignore t) + ("multipart/mixed" ignore t) + ("multipart/related" ignore t)) "Alist of media types/test that say whether the media types can be displayed inline.") (defvar mm-user-display-methods @@ -97,7 +100,8 @@ "List of MIME type regexps that will be displayed externally automatically.") (defvar mm-alternative-precedence - '("image/jpeg" "image/gif" "text/html" "text/enriched" + '("multipart/related" "multipart/mixed" "multipart/alternative" + "image/jpeg" "image/gif" "text/html" "text/enriched" "text/richtext" "text/plain") "List that describes the precedence of alternative parts.") @@ -250,15 +254,15 @@ external if displayed external." (defun mm-display-external (handle method) "Display HANDLE using METHOD." (mm-with-unibyte-buffer - (insert-buffer-substring (mm-handle-buffer handle)) - (mm-decode-content-transfer-encoding - (mm-handle-encoding handle) (car (mm-handle-type handle))) (if (functionp method) (let ((cur (current-buffer))) (if (eq method 'mailcap-save-binary-file) (progn (set-buffer (generate-new-buffer "*mm*")) (setq method nil)) + (insert-buffer-substring (mm-handle-buffer handle)) + (mm-decode-content-transfer-encoding + (mm-handle-encoding handle) (car (mm-handle-type handle))) (let ((win (get-buffer-window cur t))) (when win (select-window win))) @@ -273,6 +277,10 @@ external if displayed external." (funcall method) (mm-save-part handle)) (mm-handle-set-undisplayer handle mm)))) + ;; The function is a string to be executed. + (insert-buffer-substring (mm-handle-buffer handle)) + (mm-decode-content-transfer-encoding + (mm-handle-encoding handle) (car (mm-handle-type handle))) (let* ((dir (make-temp-name (expand-file-name "emm." mm-tmp-directory))) (filename (mail-content-type-get (mm-handle-disposition handle) 'filename)) @@ -437,7 +445,7 @@ This overrides entries in the mailcap file." "Return a version of ARG that is safe to evaluate in a shell." (let ((pos 0) new-pos accum) ;; *** bug: we don't handle newline characters properly - (while (setq new-pos (string-match "[;!`\"$\\& \t{} ]" arg pos)) + (while (setq new-pos (string-match "[;!`\"$\\& \t{} |()<>]" arg pos)) (push (substring arg pos new-pos) accum) (push "\\" accum) (push (list (aref arg new-pos)) accum) diff --git a/lisp/mml.el b/lisp/mml.el index 1e2f6ab..7e27f6b 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -177,7 +177,7 @@ (buffer-substring-no-properties beg (goto-char (point-max)))))) (defvar mml-boundary nil) -(defvar mml-base-boundary "=-=-=") +(defvar mml-base-boundary "-=-=") (defvar mml-multipart-number 0) (defun mml-generate-mime () @@ -361,6 +361,17 @@ (substring path (1+ (match-end 2)))) path)) +(defun mml-quote-region (beg end) + "Quote the MML tags in the region." + (interactive "r") + (save-excursion + (goto-char beg) + ;; Quote parts. + (while (re-search-forward + "<#/?!*\\(multipart\\|part\\|external\\)" end t) + (goto-char (match-beginning 1)) + (insert "!")))) + (provide 'mml) ;;; mml.el ends here diff --git a/make.bat b/make.bat index c3c9e2e..b203277 100755 --- a/make.bat +++ b/make.bat @@ -1,64 +1,64 @@ -@echo off - -rem Written by David Charlap - -rem There are two catches, however. The emacs.bat batch file may not exist -rem in all distributions. It is part of the Voelker build of Emacs 19.34 -rem (http://www.cs.washington.edu/homes/voelker/ntemacs.html). If the user -rem installs Gnus with some other build, he may have to replace calls to -rem %1\emacs.bat with something else. -rem -rem Also, the emacs.bat file that Voelker ships does not accept more than 9 -rem parameters, so the attempts to compile the .texi files will fail. To -rem fix that (at least on NT. I don't know about Win95), the following -rem change should be made to emacs.bat: -rem -rem %emacs_dir%\bin\emacs.exe %1 %2 %3 %4 %5 %6 %7 %8 %9 -rem -rem should become -rem -rem %emacs_dir%\bin\emacs.exe %* -rem -rem which will allow the batch file to accept an unlimited number of -rem parameters. - -rem Clear PWD so emacs doesn't get confused -set GNUS_PWD_SAVE=%PWD% -set PWD= - -if "%1" == "" goto usage - -cd lisp -call %1\bin\emacs.bat -batch -q -no-site-file -l ./dgnushack.el -f dgnushack-compile -if not "%2" == "copy" goto info -copy *.el* %1\lisp - -:info -cd ..\texi -call %1\bin\emacs.bat -batch -q -no-site-file gnus.texi -l texinfmt -f texinfo-every-node-update -f texinfo-format-buffer -f save-buffer -call %1\bin\emacs.bat -batch -q -no-site-file message.texi -l texinfmt -f texinfo-every-node-update -f texinfo-format-buffer -f save-buffer -if not "%2" == "copy" goto done -copy gnus %1\info -copy gnus-?? %1\info -copy message %1\info - -:etc -cd ..\etc -copy gnus-tut.txt %1\etc - -:done -cd .. -goto end - -:usage -echo Usage: make ^ [copy] -echo. -echo where: ^ is the directory you installed emacs in -echo eg. d:\emacs\19.34 -echo copy indicates that the compiled files should be copied to your -echo emacs lisp, info, and etc directories - -rem Restore PWD so whoever called this batch file doesn't get confused -set PWD=%GNUS_PWD_SAVE% -set GNUS_PWD_SAVE= -:end +@echo off + +rem Written by David Charlap + +rem There are two catches, however. The emacs.bat batch file may not exist +rem in all distributions. It is part of the Voelker build of Emacs 19.34 +rem (http://www.cs.washington.edu/homes/voelker/ntemacs.html). If the user +rem installs Gnus with some other build, he may have to replace calls to +rem %1\emacs.bat with something else. +rem +rem Also, the emacs.bat file that Voelker ships does not accept more than 9 +rem parameters, so the attempts to compile the .texi files will fail. To +rem fix that (at least on NT. I don't know about Win95), the following +rem change should be made to emacs.bat: +rem +rem %emacs_dir%\bin\emacs.exe %1 %2 %3 %4 %5 %6 %7 %8 %9 +rem +rem should become +rem +rem %emacs_dir%\bin\emacs.exe %* +rem +rem which will allow the batch file to accept an unlimited number of +rem parameters. + +rem Clear PWD so emacs doesn't get confused +set GNUS_PWD_SAVE=%PWD% +set PWD= + +if "%1" == "" goto usage + +cd lisp +call %1\bin\emacs.bat -batch -q -no-site-file -l ./dgnushack.el -f dgnushack-compile +if not "%2" == "copy" goto info +copy *.el* %1\lisp + +:info +cd ..\texi +call %1\bin\emacs.bat -batch -q -no-site-file gnus.texi -l texinfmt -f texinfo-every-node-update -f texinfo-format-buffer -f save-buffer +call %1\bin\emacs.bat -batch -q -no-site-file message.texi -l texinfmt -f texinfo-every-node-update -f texinfo-format-buffer -f save-buffer +if not "%2" == "copy" goto done +copy gnus %1\info +copy gnus-?? %1\info +copy message %1\info + +:etc +cd ..\etc +copy gnus-tut.txt %1\etc + +:done +cd .. +goto end + +:usage +echo Usage: make ^ [copy] +echo. +echo where: ^ is the directory you installed emacs in +echo eg. d:\emacs\19.34 +echo copy indicates that the compiled files should be copied to your +echo emacs lisp, info, and etc directories + +rem Restore PWD so whoever called this batch file doesn't get confused +set PWD=%GNUS_PWD_SAVE% +set GNUS_PWD_SAVE= +:end diff --git a/texi/gnus.texi b/texi/gnus.texi index e67cf14..b5e5192 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Pterodactyl Gnus 0.62 Manual +@settitle Pterodactyl Gnus 0.63 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Pterodactyl Gnus 0.62 Manual +@title Pterodactyl Gnus 0.63 Manual @author by Lars Magne Ingebrigtsen @page @@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local spool or your mbox file. All at the same time, if you want to push your luck. -This manual corresponds to Pterodactyl Gnus 0.62. +This manual corresponds to Pterodactyl Gnus 0.63. @end ifinfo diff --git a/texi/message.texi b/texi/message.texi index 17f53c0..42b0c3b 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Pterodactyl Message 0.62 Manual +@settitle Pterodactyl Message 0.63 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Pterodactyl Message 0.62 Manual +@title Pterodactyl Message 0.63 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Pterodactyl Message 0.62. Message is +This manual corresponds to Pterodactyl Message 0.63. Message is distributed with the Gnus distribution bearing the same version number as this manual.