From 0d4f1f279d27cf18c9b9d2f690bc5256a277a8a9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 8 Nov 1998 22:39:06 +0000 Subject: [PATCH] Importing Pterodactyl Gnus 0.42. --- lisp/ChangeLog | 20 +++++++++ lisp/gnus-agent.el | 2 +- lisp/gnus-art.el | 4 +- lisp/gnus.el | 2 +- lisp/message.el | 3 +- lisp/nntp.el | 4 +- make.bat | 114 ++++++++++++++++++++++++++-------------------------- texi/gnus.texi | 6 +-- texi/message.texi | 6 +-- 9 files changed, 92 insertions(+), 69 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9c5441..36c3242 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,23 @@ +Sun Nov 8 23:17:24 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.42 is released. + +Sun Nov 8 02:36:33 1998 Shenghuo ZHU + + * gnus-art.el (gnus-display-mime): Add id for alternative part. + +1998-11-08 02:24:47 Simon Josefsson + + * nntp.el (nntp-send-mode-reader): Revert. + +Sun Nov 8 00:45:13 1998 Shenghuo ZHU + + * gnus-agent.el (gnus-agent-fetch-articles): Use with-temp-buffer. + +Sat Nov 7 23:07:24 1998 Shenghuo ZHU + + * message.el (message-make-date): Fix for negative time zones. + Sun Nov 8 01:00:16 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.41 is released. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index eef0400..c518414 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -673,7 +673,7 @@ the actual number of articles toggled is returned." ;; Fetch the articles from the backend. (if (gnus-check-backend-function 'retrieve-articles group) (setq pos (gnus-retrieve-articles articles group)) - (with-temp-file nil + (with-temp-buffer (let (article) (while (setq article (pop articles)) (when (gnus-request-article article group) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 8cc86cf..660b086 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2394,7 +2394,9 @@ If ALL-HEADERS is non-nil, no headers are hidden." (delete-region (point) (point-max))) (if (stringp (car handles)) (if (equal (car handles) "multipart/alternative") - (gnus-mime-display-alternative (cdr handles)) + (let ((id (1+ (length gnus-article-mime-handle-alist)))) + (push (cons id handles) gnus-article-mime-handle-alist) + (gnus-mime-display-alternative (cdr handles) nil nil id)) (gnus-mime-display-mixed (cdr handles))) (gnus-mime-display-single handles))))) diff --git a/lisp/gnus.el b/lisp/gnus.el index 4a1e51b..e05b3c3 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.41" +(defconst gnus-version-number "0.42" "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 86b5a9c..0f746c6 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2644,7 +2644,8 @@ If NOW, use that time instead." (zone (nth 8 (decode-time now))) (sign "+")) (when (< zone 0) - (setq sign "")) + (setq sign "-") + (setq zone (- zone))) (concat (format-time-string "%d" now) ;; The month name of the %b spec is locale-specific. Pfff. diff --git a/lisp/nntp.el b/lisp/nntp.el index 16a262a..d9972ef 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -750,7 +750,7 @@ If this variable is nil, which is the default, no timers are set.") This function is supposed to be called from `nntp-server-opened-hook'. It will make innd servers spawn an nnrpd process to allow actual article reading." - (nntp-send-command "^\\.*\r?\n" "MODE READER")) + (nntp-send-command "^.*\n" "MODE READER")) (defun nntp-send-authinfo (&optional send-if-force) "Send the AUTHINFO to the nntp server. @@ -858,7 +858,7 @@ password contained in '~/.nntp-authinfo'." (when (and (buffer-name pbuffer) process) (process-kill-without-query process) - (nntp-wait-for process "^\\.*\n" buffer nil t) + (nntp-wait-for process "^.*\n" buffer nil t) (if (memq (process-status process) '(open run)) (prog1 (caar (push (list process buffer nil) nntp-connection-alist)) diff --git a/make.bat b/make.bat index d183af9..4a6b8a0 100755 --- a/make.bat +++ b/make.bat @@ -1,57 +1,57 @@ -@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. - -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 - -: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. + +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 + +:end diff --git a/texi/gnus.texi b/texi/gnus.texi index 6b8d098..1499f1d 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Pterodactyl Gnus 0.41 Manual +@settitle Pterodactyl Gnus 0.42 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.41 Manual +@title Pterodactyl Gnus 0.42 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.41. +This manual corresponds to Pterodactyl Gnus 0.42. @end ifinfo diff --git a/texi/message.texi b/texi/message.texi index 5c30392..a7c4d91 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Pterodactyl Message 0.41 Manual +@settitle Pterodactyl Message 0.42 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.41 Manual +@title Pterodactyl Message 0.42 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.41. Message is +This manual corresponds to Pterodactyl Message 0.42. Message is distributed with the Gnus distribution bearing the same version number as this manual. -- 1.7.10.4