From c820f0929ec5fd19935612be62bafa27c9ba1899 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 25 Oct 1998 23:08:13 +0000 Subject: [PATCH] Importing pgnus-0.40. --- lisp/ChangeLog | 34 ++++++++++++++++ lisp/gnus-agent.el | 1 + lisp/gnus-art.el | 4 +- lisp/gnus-start.el | 3 +- lisp/gnus-sum.el | 5 ++- lisp/gnus-topic.el | 3 +- lisp/gnus.el | 2 +- lisp/mm-uu.el | 2 +- lisp/nndoc.el | 2 +- lisp/nneething.el | 11 +++-- lisp/nnheader.el | 3 +- lisp/nnml.el | 5 ++- make.bat | 114 ++++++++++++++++++++++++++-------------------------- texi/gnus.texi | 14 +++++-- texi/message.texi | 6 +-- 15 files changed, 130 insertions(+), 79 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8eb0615..71bb150 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,37 @@ +Sun Oct 25 23:11:44 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.40 is released. + +1998-10-25 21:41:05 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-mark-forward): Show thread. + + * gnus-start.el (gnus-check-first-time-used): Ignore dribble. + + * gnus-agent.el (gnus-agent-fetch-group-1): Bind name. + + * nnml.el (nnml-possibly-create-directory): Check before making. + +1998-10-25 19:43:08 Kai Grossjohann + + * nnheader.el (nnheader-insert-nov): Don't infloop. + +1998-10-25 19:26:11 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-set-mode-line): Check that the spec has been + set up. + +1998-10-25 19:22:03 Joerg Lenneis + + * nneething.el (nneething-file-name): New definition. + +1998-10-25 17:56:23 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-treatment-function-alist): Fix. + (gnus-summary-save-in-rmail): Use gnus-output-to-rmail. + + * nndoc.el (nndoc-dissect-mime-parts-sub): Recognize first part. + Sun Oct 25 06:23:13 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.39 is released. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 6c595f1..4fc0d64 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -903,6 +903,7 @@ the actual number of articles toggled is returned." (defun gnus-agent-fetch-group-1 (group method) "Fetch GROUP." (let ((gnus-command-method method) + (gnus-newsgroup-name group) gnus-newsgroup-dependencies gnus-newsgroup-headers gnus-newsgroup-scored gnus-headers gnus-score gnus-use-cache articles arts diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 0bb90f5..5909c54 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -582,7 +582,7 @@ displayed by the first non-nil matching CONTENT face." ;;; Internal variables -(defvar gnus-treatment-function-alist () +(defvar gnus-treatment-function-alist '((gnus-treat-body-highlight-signature gnus-article-highlight-signature nil) )) @@ -1710,7 +1710,7 @@ Directory to save to is default to `gnus-article-save-directory'." (save-excursion (save-restriction (widen) - (rmail-output-to-rmail-file filename)))) + (gnus-output-to-rmail filename)))) filename) (defun gnus-summary-save-in-mail (&optional filename) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index eec5d5e..8b19bee 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1103,8 +1103,7 @@ for new groups, and subscribe the new groups as zombies." got-new)) (defun gnus-check-first-time-used () - (if (or (> (length gnus-newsrc-alist) 1) - (file-exists-p gnus-startup-file) + (if (or (file-exists-p gnus-startup-file) (file-exists-p (concat gnus-startup-file ".el")) (file-exists-p (concat gnus-startup-file ".eld"))) nil diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 6d38a3b..72314d9 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -4255,7 +4255,9 @@ If SELECT-ARTICLES, only select those articles from GROUP." "This function sets the mode line of the article or summary buffers. If WHERE is `summary', the summary mode line format will be used." ;; Is this mode line one we keep updated? - (when (memq where gnus-updated-mode-lines) + (when (and (memq where gnus-updated-mode-lines) + (symbol-value + (intern (format "gnus-%s-mode-line-format-spec" where)))) (let (mode-string) (save-excursion ;; We evaluate this in the summary buffer since these @@ -7724,6 +7726,7 @@ If N is negative, mark backwards instead. Mark with MARK, ?r by default. The difference between N and the actual number of articles marked is returned." (interactive "p") + (gnus-summary-show-thread) (let ((backward (< n 0)) (gnus-summary-goto-unread (and gnus-summary-goto-unread diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 3f2b2af..c3dd816 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -444,7 +444,8 @@ articles in the topic and its subtopics." (if (stringp entry) ;; Dead groups. (gnus-group-insert-group-line - entry (if (member entry gnus-zombie-list) gnus-level-zombie gnus-level-killed) + entry (if (member entry gnus-zombie-list) + gnus-level-zombie gnus-level-killed) nil (- (1+ (cdr (setq active (gnus-active entry)))) (car active)) nil) diff --git a/lisp/gnus.el b/lisp/gnus.el index 792404c..12b9d61 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.39" +(defconst gnus-version-number "0.40" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index 6a82940..1746f3d 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -2,7 +2,7 @@ ;; Copyright (c) 1998 by Shenghuo Zhu ;; Author: Shenghuo Zhu -;; $Revision: 1.1.1.1 $ +;; $Revision: 1.1.1.2 $ ;; Keywords: news postscript uudecode binhex shar ;; This file is not part of GNU Emacs, but the same permissions diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 2c11c48..be026de 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -694,7 +694,7 @@ PARENT is the message-ID of the parent summary line, or nil for none." (when (string-match ";[ \t\n]*name=\\([^ \t\n;]+\\)" content-type) (setq subject (match-string 1 content-type))) (when (string-match "boundary=\"?\\([^\"\n]*[^\" \t\n]\\)" content-type) - (setq boundary-regexp (concat "\n--" + (setq boundary-regexp (concat "^--" (regexp-quote (match-string 1 content-type)) "\\(--\\)?[ \t]*\n")))) diff --git a/lisp/nneething.el b/lisp/nneething.el index 700dad8..8048849 100644 --- a/lisp/nneething.el +++ b/lisp/nneething.el @@ -342,10 +342,13 @@ If this variable is nil, no files will be excluded.") (defun nneething-file-name (article) "Return the file name of ARTICLE." - (concat (file-name-as-directory nneething-address) - (if (numberp article) - (cadr (assq article nneething-map)) - article))) + (let ((dir (file-name-as-directory nneething-address)) + fname) + (if (numberp article) + (if (setq fname (cadr (assq article nneething-map))) + (concat dir fname) + (make-temp-name (concat dir "nneething"))) + (concat dir article)))) (provide 'nneething) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 302924d..9d64793 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -337,7 +337,8 @@ on your system, you could say something like: (let ((extra (mail-header-extra header))) (while extra (insert (symbol-name (caar extra)) - ": " (cdar extra) "\t")))) + ": " (cdar extra) "\t") + (pop extra)))) (insert "\n")) (defun nnheader-insert-article-line (article) diff --git a/lisp/nnml.el b/lisp/nnml.el index 8847ae3..4e847bf 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -576,8 +576,9 @@ all. This may very well take some time.") (defun nnml-possibly-create-directory (group) (let ((dir (nnmail-group-pathname group nnml-directory))) - (make-directory (directory-file-name dir) t) - (nnheader-message 5 "Creating mail directory %s" dir))) + (unless (file-exists-p dir) + (make-directory (directory-file-name dir) t) + (nnheader-message 5 "Creating mail directory %s" dir)))) (defun nnml-save-mail (group-art) "Called narrowed to an article." 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 240437a..5f78162 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Pterodactyl Gnus 0.39 Manual +@settitle Pterodactyl Gnus 0.40 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.39 Manual +@title Pterodactyl Gnus 0.40 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.39. +This manual corresponds to Pterodactyl Gnus 0.40. @end ifinfo @@ -18295,6 +18295,14 @@ groups it has been crossposted to, or something. (Agent.) `S D r' should allow expansion of aliases. @item +If point is on a group that appears multiple times in topics, and +you press `l', point will move to the first instance of the group. + +@item +The documentation should mention pop3.el, fetchmail, smtpmail and why +po:username often fails. + +@item Solve the halting problem. @c TODO diff --git a/texi/message.texi b/texi/message.texi index 237dd93..bb26941 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Pterodactyl Message 0.39 Manual +@settitle Pterodactyl Message 0.40 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.39 Manual +@title Pterodactyl Message 0.40 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.39. Message is +This manual corresponds to Pterodactyl Message 0.40. Message is distributed with the Gnus distribution bearing the same version number as this manual. -- 1.7.10.4