From: morioka Date: Fri, 26 Jun 1998 08:01:17 +0000 (+0000) Subject: Gnus v5.6.15. X-Git-Tag: gnus-5_6_15~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f7f8a94ffef429d5c674abe60fc038f54e126650;p=elisp%2Fgnus.git- Gnus v5.6.15. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 94a4fb5..7da8130 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,45 @@ +Fri Jun 26 04:23:12 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.15 is released. + +Fri Jun 26 03:39:32 1998 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-request-replace-article): Delete old + delimiter. + + * gnus-msg.el (gnus-summary-reply): Use it. + + * message.el (message-reply): Removed parameter. + (message-wide-reply): Ditto. + + * gnus-msg.el (gnus-msg-treat-broken-reply-to): New function. + + * gnus-art.el (gnus-check-group-server): New function. + (gnus-request-article-this-buffer): Don't try to waken the server + before needing to. + +Thu Jun 25 10:35:48 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-delete-article): Sort the articles + before deleting. + + * nngateway.el (nngateway-request-post): Return success. + + * nnheader.el (nnheader-insert-file-contents): Bind more hooks. + + * gnus-sum.el (gnus-summary-limit-to-age): Reverse logic. + + * gnus-score.el (gnus-summary-score-entry): Removed interactive + spec. + ((gnus-summary-score-map "V" gnus-summary-mode-map)): Removed + keystroke. + + * gnus-art.el (gnus-article-show-summary): Position point. + + * gnus-cache.el (gnus-cache-update-article): Change group first. + + * gnus.el (gnus-short-group-name): Collapse more. + Thu Jun 25 08:48:06 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.14 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index dd19652..2ee9cf5 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2024,11 +2024,6 @@ If ALL-HEADERS is non-nil, no headers are hidden." (unless (eq major-mode 'gnus-summary-mode) (set-buffer gnus-summary-buffer)) (setq gnus-summary-buffer (current-buffer)) - ;; Make sure the connection to the server is alive. - (unless (gnus-server-opened - (gnus-find-method-for-group gnus-newsgroup-name)) - (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name)) - (gnus-request-group gnus-newsgroup-name t)) (let* ((gnus-article (if header (mail-header-number header) article)) (summary-buffer (current-buffer)) (internal-hook gnus-article-internal-prepare-hook) @@ -2294,7 +2289,8 @@ Argument LINES specifies lines to be scrolled down." (error "There is no summary buffer for this article buffer") (gnus-article-set-globals) (gnus-configure-windows 'article) - (gnus-summary-goto-subject gnus-current-article))) + (gnus-summary-goto-subject gnus-current-article) + (gnus-summary-position-point))) (defun gnus-article-describe-briefly () "Describe article mode commands briefly." @@ -2406,6 +2402,13 @@ If given a prefix, show the hidden text instead." (when (gnus-visual-p 'article-highlight 'highlight) (gnus-article-highlight-some))) +(defun gnus-check-group-server () + ;; Make sure the connection to the server is alive. + (unless (gnus-server-opened + (gnus-find-method-for-group gnus-newsgroup-name)) + (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name)) + (gnus-request-group gnus-newsgroup-name t))) + (defun gnus-request-article-this-buffer (article group) "Get an article and insert it into this buffer." (let (do-update-line) @@ -2415,9 +2418,6 @@ If given a prefix, show the hidden text instead." (gnus-kill-all-overlays) (setq group (or group gnus-newsgroup-name)) - ;; Open server if it has closed. - (gnus-check-server (gnus-find-method-for-group group)) - ;; Using `gnus-request-article' directly will insert the article into ;; `nntp-server-buffer' - so we'll save some time by not having to ;; copy it from the server buffer into the article buffer. @@ -2508,6 +2508,7 @@ If given a prefix, show the hidden text instead." (buffer-read-only nil)) (erase-buffer) (gnus-kill-all-overlays) + (gnus-check-group-server) (when (gnus-request-article article group (current-buffer)) (when (numberp article) (gnus-async-prefetch-next group article gnus-summary-buffer) diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index c4cc5d4..9c2014e 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -405,7 +405,8 @@ Returns the list of articles removed." (defun gnus-cache-update-article (group article) "If ARTICLE is in the cache, remove it and re-enter it." - (when (gnus-cache-possibly-remove-article article nil nil nil t) + (gnus-cache-change-buffer group) + (when (gnus-cache-possibly-remove-article article nil nil nil t) (let ((gnus-use-cache nil)) (gnus-cache-possibly-enter-article gnus-newsgroup-name article (gnus-summary-article-header article) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index f560477..3e87e42 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -424,12 +424,19 @@ header line with the old Message-ID." (push (list 'gnus-inews-add-to-address pgroup) message-send-actions))) (set-buffer gnus-article-copy) - (message-wide-reply to-address - (gnus-group-find-parameter - gnus-newsgroup-name 'broken-reply-to)))) + (gnus-msg-treat-broken-reply-to) + (message-wide-reply to-address))) (when yank (gnus-inews-yank-articles yank)))))) +(defun gnus-msg-treat-broken-reply-to () + "Remove the Reply-to header iff broken-reply-to." + (when (gnus-group-find-parameter + gnus-newsgroup-name 'broken-reply-to) + (save-restriction + (message-narrow-to-head) + (message-remove-header "reply-to")))) + (defun gnus-post-method (arg group &optional silent) "Return the posting method based on GROUP and ARG. If SILENT, don't prompt the user." @@ -582,8 +589,8 @@ automatically." (gnus-setup-message (if yank 'reply-yank 'reply) (gnus-summary-select-article) (set-buffer (gnus-copy-article-buffer)) - (message-reply nil wide (gnus-group-find-parameter - gnus-newsgroup-name 'broken-reply-to)) + (gnus-msg-treat-broken-reply-to) + (message-reply nil wide) (when yank (gnus-inews-yank-articles yank))))) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index f324be2..08bf0f0 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -454,7 +454,6 @@ of the last successful match.") (gnus-define-keys (gnus-summary-score-map "V" gnus-summary-mode-map) "s" gnus-summary-set-score - "a" gnus-summary-score-entry "S" gnus-summary-current-score "c" gnus-score-change-score-file "C" gnus-score-customize @@ -752,20 +751,6 @@ SCORE is the score to add. DATE is the expire date, or nil for no expire, or 'now for immediate expire. If optional argument `PROMPT' is non-nil, allow user to edit match. If optional argument `SILENT' is nil, show effect of score entry." - (interactive - (list (completing-read "Header: " - gnus-header-index - (lambda (x) (fboundp (nth 2 x))) - t) - (read-string "Match: ") - (if (y-or-n-p "Use regexp match? ") 'r 's) - (and current-prefix-arg - (prefix-numeric-value current-prefix-arg)) - (cond ((not (y-or-n-p "Add to score file? ")) - 'now) - ((y-or-n-p "Expire kill? ") - (current-time-string)) - (t nil)))) ;; Regexp is the default type. (when (eq type t) (setq type 'r)) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 658a529..e4ad698 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -5888,8 +5888,8 @@ articles that are younger than AGE days." (nnmail-time-since (nnmail-date-to-time date)) cutoff)) (when (if younger-p - (not is-younger) - is-younger) + is-younger + (not is-younger)) (push (gnus-data-number d) articles)))) (gnus-summary-limit (nreverse articles))) (gnus-summary-position-point))) @@ -7212,7 +7212,7 @@ delete these instead." gnus-newsgroup-name) (error "The current newsgroup does not support article deletion")) ;; Compute the list of articles to delete. - (let ((articles (gnus-summary-work-articles n)) + (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<)) not-deleted) (if (and gnus-novice-user (not (gnus-yes-or-no-p diff --git a/lisp/gnus.el b/lisp/gnus.el index a4efbed..80df675 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,7 +250,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "5.6.14" +(defconst gnus-version-number "5.6.15" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) @@ -2476,7 +2476,10 @@ If SCORE is nil, add 1 to the score of GROUP." "Collapse GROUP name LEVELS. Select methods are stripped and any remote host name is stripped down to just the host name." - (let* ((name "") (foreign "") (depth -1) (skip 1) + (let* ((name "") + (foreign "") + (depth 0) + (skip 1) (levels (or levels (progn (while (string-match "\\." group skip) diff --git a/lisp/message.el b/lisp/message.el index db77bcc..0b40a38 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1050,7 +1050,7 @@ If REGEXP, HEADER is a regular expression. If FIRST, only remove the first instance of the header. Return the number of headers removed." (goto-char (point-min)) - (let ((regexp (if is-regexp header (concat "^" header ":"))) + (let ((regexp (if is-regexp header (concat "^" (regexp-quote header) ":"))) (number 0) (case-fold-search t) last) @@ -3204,7 +3204,7 @@ Headers already prepared in the buffer are not modified." (Subject . ,(or subject "")))))) ;;;###autoload -(defun message-reply (&optional to-address wide ignore-reply-to) +(defun message-reply (&optional to-address wide) "Start editing a reply to the article in the current buffer." (interactive) (let ((cur (current-buffer)) @@ -3231,7 +3231,7 @@ Headers already prepared in the buffer are not modified." to (message-fetch-field "to") cc (message-fetch-field "cc") mct (message-fetch-field "mail-copies-to") - reply-to (unless ignore-reply-to (message-fetch-field "reply-to")) + reply-to (message-fetch-field "reply-to") references (message-fetch-field "references") message-id (message-fetch-field "message-id" t)) ;; Remove any (buggy) Re:'s that are present and make a @@ -3311,10 +3311,10 @@ Headers already prepared in the buffer are not modified." cur))) ;;;###autoload -(defun message-wide-reply (&optional to-address ignore-reply-to) +(defun message-wide-reply (&optional to-address) "Make a \"wide\" reply to the message in the current buffer." (interactive) - (message-reply to-address t ignore-reply-to)) + (message-reply to-address t)) ;;;###autoload (defun message-followup (&optional to-newsgroups) diff --git a/lisp/nnagent.el b/lisp/nnagent.el index 90667cb..b42ddf9 100644 --- a/lisp/nnagent.el +++ b/lisp/nnagent.el @@ -27,7 +27,7 @@ (require 'nnheader) (require 'nnoo) -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus-agent) (require 'nnml) diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 334b2b6..5f399d8 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -31,7 +31,7 @@ (require 'message) (require 'nnmail) (require 'nnoo) -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus-util) (nnoo-declare nnfolder) @@ -397,14 +397,16 @@ time saver for large mailboxes.") (save-excursion (set-buffer buffer) (goto-char (point-min)) - (when (looking-at "X-From-Line: ") - (replace-match "From ")) + (if (looking-at "X-From-Line: ") + (replace-match "From ") + (unless (looking-at message-unix-mail-delimiter) + (insert "From nobody " (current-time-string) "\n"))) (nnfolder-normalize-buffer) (set-buffer nnfolder-current-buffer) (goto-char (point-min)) (if (not (nnfolder-goto-article article)) nil - (nnfolder-delete-mail t) + (nnfolder-delete-mail) (insert-buffer-substring buffer) (nnfolder-save-buffer) t))) diff --git a/lisp/nngateway.el b/lisp/nngateway.el index 168d5f4..6b59be5 100644 --- a/lisp/nngateway.el +++ b/lisp/nngateway.el @@ -62,7 +62,8 @@ parameter -- the gateway address.") (insert mail-header-separator "\n") (widen) (let (message-required-mail-headers) - (funcall message-send-mail-function)))))) + (funcall message-send-mail-function)) + t)))) ;;; Internal functions diff --git a/lisp/nnheader.el b/lisp/nnheader.el index cffbedb..e0de0a4 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -773,7 +773,9 @@ find-file-hooks, etc. (let ((format-alist nil) (auto-mode-alist (nnheader-auto-mode-alist)) (default-major-mode 'fundamental-mode) + (enable-local-variables nil) (after-insert-file-functions nil) + (find-file-hooks nil) (coding-system-for-read nnheader-file-coding-system)) (insert-file-contents filename visit beg end replace))) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 7880e2f..5ae4d74 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -25,7 +25,7 @@ ;;; Code: -(eval-when-compile (require 'cl)) +(require 'cl) (require 'nnheader) (require 'timezone) diff --git a/readme b/readme index a232075..e3064ef 100644 --- a/readme +++ b/readme @@ -9,7 +9,7 @@ You should definitely byte-compile the source files. To do that, you can simply say "./configure; make" in this directory. If you are using XEmacs, you *must* say "make EMACS=xemacs". In that case you may also want to pull down the package of nice glyphs from -. It should be installed +. It should be installed into the "gnus-5.4.53/etc" directory. Then you have to tell Emacs where Gnus is. You might put something diff --git a/texi/ChangeLog b/texi/ChangeLog index d48080a..ac91f20 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +Thu Jun 25 11:24:14 1998 Lars Magne Ingebrigtsen + + * gnus.texi (Summary Score Commands): Deletia. + Wed Jun 24 00:37:32 1998 Lars Magne Ingebrigtsen * gnus.texi (Auto Save): Addition. diff --git a/texi/gnus.texi b/texi/gnus.texi index def581c..658bdf9 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Gnus 5.6.14 Manual +@settitle Gnus 5.6.15 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Gnus 5.6.14 Manual +@title Gnus 5.6.15 Manual @author by Lars Magne Ingebrigtsen @page @@ -352,7 +352,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 Gnus 5.6.14. +This manual corresponds to Gnus 5.6.15. @end ifinfo @@ -1942,7 +1942,9 @@ methods. If @code{gnus-activate-foreign-newsgroups} is a positive number, Gnus will check all foreign groups with this level or lower at startup. This might take quite a while, especially if you subscribe to lots of -groups from different @sc{nntp} servers. +groups from different @sc{nntp} servers. Also @pxref{Group Levels}; +@code{gnus-activate-level} also affects activation of foreign +newsgroups. @node Group Parameters @@ -11872,12 +11874,6 @@ Run the current summary through the scoring process around with your score files behind Gnus' back and want to see the effect you're having. -@item V a -@kindex V a (Summary) -@findex gnus-summary-score-entry -Add a new score entry, and allow specifying all elements -(@code{gnus-summary-score-entry}). - @item V c @kindex V c (Summary) @findex gnus-score-change-score-file @@ -15779,7 +15775,7 @@ actually are people who are using Gnus. Who'd'a thunk it! * ding Gnus:: New things in Gnus 5.0/5.1, the first new Gnus. * September Gnus:: The Thing Formally Known As Gnus 5.3/5.3. * Red Gnus:: Third time best---Gnus 5.4/5.5. -* Quassia Gnus:: Two times two is four, or Gnus 5.6.14. +* Quassia Gnus:: Two times two is four, or Gnus 5.6.15. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16314,7 +16310,7 @@ Emphasized text can be properly fontisized: @node Quassia Gnus @subsubsection Quassia Gnus -New features in Gnus 5.6.14: +New features in Gnus 5.6.15: @itemize @bullet @@ -17614,6 +17610,11 @@ Rething the Agent active file thing. `M-g' doesn't update the active file, for instance. @item +With dummy roots, `^' and then selecing the first article +in any other dummy thread will make Gnus highlight the +dummy root instead of the first article. + +@item Solve the halting problem. @c TODO diff --git a/texi/message.texi b/texi/message.texi index e2b81ec..069ee96 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.14 Manual +@settitle Message 5.6.15 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 Message 5.6.14 Manual +@title Message 5.6.15 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 Message 5.6.14. Message is distributed with +This manual corresponds to Message 5.6.15. Message is distributed with the Gnus distribution bearing the same version number as this manual has.