From 23d4e4cc4b75c353403b76fc2182384e663d2980 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 23 Feb 1998 11:14:24 +0000 Subject: [PATCH] Quassia Gnus v0.30. --- lisp/ChangeLog | 55 ++++++++++++++++++++++++++++++++- lisp/gnus-agent.el | 3 +- lisp/gnus-art.el | 12 ++------ lisp/gnus-cite.el | 2 +- lisp/gnus-group.el | 5 ++- lisp/gnus-picon.el | 3 +- lisp/gnus-srvr.el | 11 ++++--- lisp/gnus-start.el | 3 ++ lisp/gnus-sum.el | 87 +++++++++++++++++++++++++++++++--------------------- lisp/gnus-util.el | 21 ++++++++----- lisp/gnus.el | 5 ++- lisp/message.el | 24 +++++++-------- lisp/nnbabyl.el | 2 +- lisp/nndoc.el | 2 +- lisp/nnfolder.el | 6 ++-- lisp/nnmail.el | 19 ++++++------ lisp/nnmbox.el | 4 +-- lisp/nnmh.el | 4 +-- lisp/nnml.el | 4 +-- lisp/nnspool.el | 2 +- lisp/nntp.el | 4 +-- lisp/score-mode.el | 4 +-- texi/ChangeLog | 8 +++++ texi/gnus.texi | 12 ++++---- texi/message.texi | 6 ++-- 25 files changed, 197 insertions(+), 111 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 60cdafb..54146f9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,63 @@ +Sat Feb 21 00:51:22 1998 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.30 is released. + +Sat Feb 21 00:09:14 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-mark-article): Don't do anything if + the mark doesn't change. + + * gnus-art.el (gnus-article-prepare): Don't enter article into + cache. + + * gnus-sum.el (gnus-summary-reparent-thread): Don't mark as read. + (gnus-summary-mark-article): Don't do cache things here. + + * gnus-util.el (gnus-parse-netrc): Skip past macdefs. + +Fri Feb 20 22:56:22 1998 Lars Magne Ingebrigtsen + + * gnus-srvr.el (gnus-browse-unsubscribe-group): Wouldn't allow + unsubscription. + + * gnus-sum.el (gnus-summary-insert-subject): Allow inserting + articles outside limits. + + * gnus-start.el (gnus-dribble-enter): Update mode line. + + * gnus-srvr.el (gnus-browse-unsubscribe-group): Allow + unsubscription. + + * gnus-picon.el (gnus-article-display-picons): Check that the + extents are live first. + +Thu Feb 19 15:13:44 1998 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-useful-groups): Include gnus-bug. + +Thu Feb 19 02:28:17 1998 Jens-Ulrik Holger Petersen + + * gnus.el (gnus-group-history): Defined twice. + +Thu Feb 19 01:58:47 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-get-newsgroup-headers): Just use the header + value. + (gnus-summary-exit): Set global vars. + +Tue Feb 17 07:17:49 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-stop-page-breaking): Mark page as no + longer broken. + (gnus-summary-exit): Purge the real name. + Tue Feb 17 07:00:43 1998 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.29 is released. Tue Feb 17 06:15:03 1998 Lars Magne Ingebrigtsen - * nnmail.el (nnmail-purge-split-history): List if alists, not + * nnmail.el (nnmail-purge-split-history): List of alists, not alist. Mon Feb 16 20:22:04 1998 Lars Magne Ingebrigtsen diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index f6ce18c..fe37118 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -620,7 +620,8 @@ the actual number of articles toggled is returned." (if (not (re-search-forward "^Message-ID: *<\\([^>\n]+\\)>" nil t)) (setq id "No-Message-ID-in-article") (setq id (buffer-substring (match-beginning 1) (match-end 1)))) - (let ((coding-system-for-write gnus-agent-article-file-coding-system)) + (let ((coding-system-for-write + gnus-agent-article-file-coding-system)) (write-region (point-min) (point-max) (concat dir (number-to-string (caar pos))) nil 'silent)) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 7c36420..277bdb3 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2107,15 +2107,7 @@ If ALL-HEADERS is non-nil, no headers are hidden." ;; . (gnus-set-global-variables) (setq gnus-have-all-headers - (or all-headers gnus-show-all-headers)) - (and gnus-use-cache - (vectorp (gnus-summary-article-header article)) - (gnus-cache-possibly-enter-article - group article - (gnus-summary-article-header article) - (memq article gnus-newsgroup-marked) - (memq article gnus-newsgroup-dormant) - (memq article gnus-newsgroup-unreads))))) + (or all-headers gnus-show-all-headers)))) (when (or (numberp article) (stringp article)) ;; Hooks for getting information from the article. @@ -2399,7 +2391,7 @@ Argument LINES specifies lines to be scrolled down." This means that PGP stuff, signatures, cited text and (some) headers will be hidden. If given a prefix, show the hidden text instead." - (interactive (list current-prefix-arg 'force)) + (interactive (append (gnus-article-hidden-arg) (list 'force))) (gnus-article-hide-headers arg) (gnus-article-hide-pgp arg) (gnus-article-hide-citation-maybe arg force) diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 7086f8b..67a86a0 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -519,7 +519,7 @@ percent and at least `gnus-cite-hide-absolute' lines of the body is cited text with attributions. When called interactively, these two variables are ignored. See also the documentation for `gnus-article-highlight-citation'." - (interactive (append (gnus-article-hidden-arg) (list 'force))) + (interactive (list (gnus-article-hidden-arg) 'force)) (unless (gnus-article-check-hidden-text 'cite arg) (save-excursion (set-buffer gnus-article-buffer) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 98f59c0..1464f2c 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -264,7 +264,10 @@ variable." `(("(ding) mailing list mirrored at sunsite.auc.dk" "emacs.ding" (nntp "sunsite.auc.dk" - (nntp-address "sunsite.auc.dk"))) + (nntp-address "sunsite.auc.dk"))) + ("gnus-bug archive" + "gnus-bug" + (nndir "/ftp@ftp.ifi.uio.no:/pub/emacs/gnus/gnus-bug/")) ("Gnus help group" "gnus-help" (nndoc "gnus-help" diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index 5737f28..2944503 100644 --- a/lisp/gnus-picon.el +++ b/lisp/gnus-picon.el @@ -317,7 +317,8 @@ To use: (setq gnus-article-x-face-command 'gnus-picons-display-x-face)" ;; wrongly placed. Move them here (if (eq gnus-picons-display-where 'article) (dolist (ext gnus-group-annotations) - (set-extent-endpoints ext (point) (point)))) + (when (extent-live-p ext) + (set-extent-endpoints ext (point) (point))))) (if (null gnus-picons-piconsearch-url) (setq gnus-article-annotations (nconc gnus-article-annotations diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 32b2ade..3018e8f 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -700,15 +700,16 @@ buffer. ;; If this group it killed, then we want to subscribe it. (when (= (following-char) ?K) (setq sub t)) - (when (cadr (gnus-gethash (setq group (gnus-browse-group-name)) - gnus-newsrc-hashtb)) + (setq group (gnus-browse-group-name)) + (when (and sub + (cadr (gnus-gethash group gnus-newsrc-hashtb))) (error "Group already subscribed")) - ;; Make sure the group has been properly removed before we - ;; subscribe to it. - (gnus-kill-ephemeral-group group) (delete-char 1) (if sub (progn + ;; Make sure the group has been properly removed before we + ;; subscribe to it. + (gnus-kill-ephemeral-group group) (gnus-group-change-level (list t group gnus-level-default-subscribed nil nil (if (gnus-server-equal diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index cfbcbfa..0b328db 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -759,6 +759,9 @@ prompt the user for the name of an NNTP server to use." (insert string "\n") (set-window-point (get-buffer-window (current-buffer)) (point-max)) (bury-buffer gnus-dribble-buffer) + (save-excursion + (set-buffer gnus-group-buffer) + (gnus-group-set-mode-line)) (set-buffer obuf)))) (defun gnus-dribble-touch () diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index bb862e0..57acf36 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -4345,10 +4345,12 @@ The resulting hash table is returned, or nil if no Xrefs were found." ;; Message-ID. (progn (goto-char p) - (setq id (if (search-forward "\nmessage-id:" nil t) - (buffer-substring - (1- (or (search-forward "<" nil t) (point))) - (or (search-forward ">" nil t) (point))) + (setq id (if (re-search-forward + "^message-id: *\\(<[^\n\t> ]>\\)" nil t) + ;; We do it this way to make sure the Message-ID + ;; is (somewhat) syntactically valid. + (buffer-substring (match-beginning 0) + (match-end 0)) ;; If there was no message-id, we just fake one ;; to make subsequent routines simpler. (nnheader-generate-fake-message-id)))) @@ -4627,8 +4629,13 @@ This is meant to be called in `gnus-article-internal-prepare-hook'." (defun gnus-summary-insert-subject (id &optional old-header use-old-header) "Find article ID and insert the summary line for that article." - (let ((header (if (and old-header use-old-header) - old-header (gnus-read-header id))) + (let ((header (cond ((and old-header use-old-header) + old-header) + ((and (numberp id) + (gnus-number-to-header id)) + (gnus-number-to-header id)) + (t + (gnus-read-header id)))) (number (and (numberp id) id)) pos d) (when header @@ -4650,6 +4657,7 @@ This is meant to be called in `gnus-article-internal-prepare-hook'." (delq (setq number (mail-header-number header)) gnus-newsgroup-sparse)) (setq gnus-newsgroup-ancient (delq number gnus-newsgroup-ancient)) + (push number gnus-newsgroup-limit) (gnus-rebuild-thread (mail-header-id header)) (gnus-summary-goto-subject number nil t)) (when (and (numberp number) @@ -5062,6 +5070,7 @@ If FORCE (the prefix), also save the .newsrc file(s)." "Exit reading current newsgroup, and then return to group selection mode. gnus-exit-group-hook is called with no arguments if that value is non-nil." (interactive) + (gnus-set-global-variables) (gnus-kill-save-kill-buffer) (let* ((group gnus-newsgroup-name) (quit-config (gnus-group-quit-config gnus-newsgroup-name)) @@ -5082,7 +5091,7 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil." (when gnus-use-trees (gnus-tree-close group)) ;; Remove entries for this group. - (nnmail-purge-split-history group) + (nnmail-purge-split-history (gnus-group-real-name group)) ;; Make all changes in this group permanent. (unless quit-config (gnus-run-hooks 'gnus-exit-group-hook) @@ -6851,7 +6860,8 @@ forward." (when (gnus-visual-p 'page-marker) (let ((buffer-read-only nil)) (gnus-remove-text-with-property 'gnus-prev) - (gnus-remove-text-with-property 'gnus-next))))) + (gnus-remove-text-with-property 'gnus-next)) + (setq gnus-page-broken nil)))) (defun gnus-summary-move-article (&optional n to-newsgroup select-method action) @@ -7698,32 +7708,35 @@ marked." (= mark gnus-duplicate-mark)))) (setq mark gnus-expirable-mark)) (let* ((mark (or mark gnus-del-mark)) - (article (or article (gnus-summary-article-number)))) - (unless article - (error "No article on current line")) - (if (not (if (or (= mark gnus-unread-mark) - (= mark gnus-ticked-mark) - (= mark gnus-dormant-mark)) - (gnus-mark-article-as-unread article mark) - (gnus-mark-article-as-read article mark))) + (article (or article (gnus-summary-article-number))) + (old-mark (gnus-summary-article-mark article))) + (if (eq mark old-mark) t - ;; See whether the article is to be put in the cache. - (and gnus-use-cache - (not (= mark gnus-canceled-mark)) - (vectorp (gnus-summary-article-header article)) - (save-excursion - (gnus-cache-possibly-enter-article - gnus-newsgroup-name article - (gnus-summary-article-header article) - (= mark gnus-ticked-mark) - (= mark gnus-dormant-mark) (= mark gnus-unread-mark)))) - - (when (gnus-summary-goto-subject article nil t) - (let ((buffer-read-only nil)) - (gnus-summary-show-thread) - ;; Fix the mark. - (gnus-summary-update-mark mark 'unread) - t))))) + (unless article + (error "No article on current line")) + (if (not (if (or (= mark gnus-unread-mark) + (= mark gnus-ticked-mark) + (= mark gnus-dormant-mark)) + (gnus-mark-article-as-unread article mark) + (gnus-mark-article-as-read article mark))) + t + ;; See whether the article is to be put in the cache. + (and gnus-use-cache + (not (= mark gnus-canceled-mark)) + (vectorp (gnus-summary-article-header article)) + (save-excursion + (gnus-cache-possibly-enter-article + gnus-newsgroup-name article + (gnus-summary-article-header article) + (= mark gnus-ticked-mark) + (= mark gnus-dormant-mark) (= mark gnus-unread-mark)))) + + (when (gnus-summary-goto-subject article nil t) + (let ((buffer-read-only nil)) + (gnus-summary-show-thread) + ;; Fix the mark. + (gnus-summary-update-mark mark 'unread) + t)))))) (defun gnus-summary-update-secondary-mark (article) "Update the secondary (read, process, cache) mark." @@ -8130,7 +8143,9 @@ is non-nil or the Subject: of both articles are the same." (gnus-summary-article-header parent-article)))) (unless (and message-id (not (equal message-id ""))) (error "No message-id in desired parent")) - (gnus-summary-select-article t t nil current-article) + ;; We don't want the article to be marked as read. + (let (gnus-mark-article-hook) + (gnus-summary-select-article t t nil current-article)) (set-buffer gnus-original-article-buffer) (let ((buf (format "%s" (buffer-string)))) (nnheader-temp-write nil @@ -8938,7 +8953,9 @@ save those articles instead." (when buffers (map-y-or-n-p "Update summary buffer %s? " - (lambda (buf) (switch-to-buffer buf) (gnus-summary-exit)) + (lambda (buf) + (switch-to-buffer buf) + (gnus-summary-exit)) buffers))))) (gnus-ems-redefine) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 5763b96..dbe42bc 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -880,17 +880,24 @@ ARG is passed to the first function." (unless (eobp) (setq elem (buffer-substring (point) (progn (forward-sexp 1) (point)))) - (if (member elem tokens) - (progn - ;; Tokens that don't have a following value are ignored. - (when (and pair (cdr pair)) - (push pair alist)) - (setq pair (list elem))) + (cond + ((equal elem "macdef") + ;; We skip past the macro definition. + (widen) + (while (and (zerop (forward-line 1)) + (looking-at "$"))) + (narrow-to-region (point) (point))) + ((member elem tokens) + ;; Tokens that don't have a following value are ignored. + (when (and pair (cdr pair)) + (push pair alist)) + (setq pair (list elem))) + (t ;; Values that haven't got a preceding token are ignored. (when pair (setcdr pair elem) (push pair alist) - (setq pair nil))))) + (setq pair nil)))))) (push alist result) (setq alist nil pair nil) diff --git a/lisp/gnus.el b/lisp/gnus.el index edf5db6..9536510 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -246,7 +246,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "0.29" +(defconst gnus-version-number "0.30" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) @@ -1391,7 +1391,6 @@ want." ;; Variable holding the user answers to all method prompts. (defvar gnus-method-history nil) -(defvar gnus-group-history nil) ;; Variable holding the user answers to all mail method prompts. (defvar gnus-mail-method-history nil) @@ -1682,7 +1681,7 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.") ;;; gnus-sum.el thingies -(defcustom gnus-summary-line-format "%U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" +(defcustom gnus-summary-line-format "%U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in the summary buffer. It works along the same lines as a normal formatting string, diff --git a/lisp/message.el b/lisp/message.el index 65cba47..aab17c5 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1321,7 +1321,7 @@ C-c C-r message-caesar-buffer-body (rot13 the message body)." (unless (string-match "XEmacs" emacs-version) (set (make-local-variable 'font-lock-defaults) '(message-font-lock-keywords t))) - (gnus-run-hooks 'text-mode-hook 'message-mode-hook)) + (run-hooks 'text-mode-hook 'message-mode-hook)) @@ -1855,7 +1855,7 @@ the user from the mailer." (let ((inhibit-read-only t)) (put-text-property (point-min) (point-max) 'read-only nil)) (message-fix-before-sending) - (gnus-run-hooks 'message-send-hook) + (run-hooks 'message-send-hook) (message "Sending...") (let ((alist message-send-method-alist) (success t) @@ -1875,7 +1875,7 @@ the user from the mailer." (message-do-fcc) ;;(when (fboundp 'mail-hist-put-headers-into-history) ;; (mail-hist-put-headers-into-history)) - (gnus-run-hooks 'message-sent-hook) + (run-hooks 'message-sent-hook) (message "Sending...done") ;; Mark the buffer as unmodified and delete autosave. (set-buffer-modified-p nil) @@ -1936,7 +1936,7 @@ the user from the mailer." (if news nil message-deletable-headers))) (message-generate-headers message-required-mail-headers)) ;; Let the user do all of the above. - (gnus-run-hooks 'message-header-hook)) + (run-hooks 'message-header-hook)) (unwind-protect (save-excursion (set-buffer tembuf) @@ -1981,7 +1981,7 @@ the user from the mailer." (replace-match "\n") (backward-char 1) (setq delimline (point-marker)) - (gnus-run-hooks 'message-send-mail-hook) + (run-hooks 'message-send-mail-hook) ;; Insert an extra newline if we need it to work around ;; Sun's bug that swallows newlines. (goto-char (1+ delimline)) @@ -2037,7 +2037,7 @@ to find out how to use this." (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) (replace-match "\n") - (gnus-run-hooks 'message-send-mail-hook) + (run-hooks 'message-send-mail-hook) ;; send the message (case (let ((coding-system-for-write 'binary)) @@ -2084,7 +2084,7 @@ to find out how to use this." (concat "^" (symbol-name (car headers)) ": *") nil t) (message-delete-line)) (pop headers)))) - (gnus-run-hooks 'message-send-mail-hook) + (run-hooks 'message-send-mail-hook) ;; Pass it on to mh. (mh-send-letter))) @@ -2106,7 +2106,7 @@ to find out how to use this." ;; Insert some headers. (message-generate-headers message-required-news-headers) ;; Let the user do all of the above. - (gnus-run-hooks 'message-header-hook)) + (run-hooks 'message-header-hook)) (message-cleanup-headers) (if (not (message-check-news-syntax)) (progn @@ -2138,7 +2138,7 @@ to find out how to use this." (concat "^" (regexp-quote mail-header-separator) "\n")) (replace-match "\n") (backward-char 1)) - (gnus-run-hooks 'message-send-news-hook) + (run-hooks 'message-send-news-hook) ;;(require (car method)) ;;(funcall (intern (format "%s-open-server" (car method))) ;;(cadr method) (cddr method)) @@ -3104,14 +3104,14 @@ Headers already prepared in the buffer are not modified." (delq 'Lines (delq 'Subject (copy-sequence message-required-mail-headers)))))) - (gnus-run-hooks 'message-signature-setup-hook) + (run-hooks 'message-signature-setup-hook) (message-insert-signature) (save-restriction (message-narrow-to-headers) - (gnus-run-hooks 'message-header-setup-hook)) + (run-hooks 'message-header-setup-hook)) (set-buffer-modified-p nil) (setq buffer-undo-list nil) - (gnus-run-hooks 'message-setup-hook) + (run-hooks 'message-setup-hook) (message-position-point) (undo-boundary)) diff --git a/lisp/nnbabyl.el b/lisp/nnbabyl.el index 34f3c2c..f5e8468 100644 --- a/lisp/nnbabyl.el +++ b/lisp/nnbabyl.el @@ -503,7 +503,7 @@ (nnbabyl-insert-lines) (nnmail-insert-xref group-art) (nnbabyl-insert-newsgroup-line group-art) - (gnus-run-hooks 'nnbabyl-prepare-save-mail-hook) + (run-hooks 'nnbabyl-prepare-save-mail-hook) group-art) (defun nnbabyl-insert-newsgroup-line (group-art) diff --git a/lisp/nndoc.el b/lisp/nndoc.el index e823ead..067b2a8 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -285,7 +285,7 @@ from the document.") (if (stringp nndoc-address) (nnheader-insert-file-contents nndoc-address) (insert-buffer-substring nndoc-address)) - (gnus-run-hooks 'nndoc-open-document-hook)))) + (run-hooks 'nndoc-open-document-hook)))) ;; Initialize the nndoc structures according to this new document. (when (and nndoc-current-buffer (not nndoc-dissection-alist)) diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 9945b2f..56ca0d6 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -572,8 +572,8 @@ time saver for large mailboxes.") (setq save-list group-art-list) (nnmail-insert-lines) (nnmail-insert-xref group-art-list) - (gnus-run-hooks 'nnmail-prepare-save-mail-hook) - (gnus-run-hooks 'nnfolder-prepare-save-mail-hook) + (run-hooks 'nnmail-prepare-save-mail-hook) + (run-hooks 'nnfolder-prepare-save-mail-hook) ;; Insert the mail into each of the destination groups. (while (setq group-art (pop group-art-list)) @@ -783,7 +783,7 @@ time saver for large mailboxes.") (defun nnfolder-save-buffer () "Save the buffer." (when (buffer-modified-p) - (gnus-run-hooks 'nnfolder-save-buffer-hook) + (run-hooks 'nnfolder-save-buffer-hook) (gnus-make-directory (file-name-directory (buffer-file-name))) (save-buffer))) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index e326b09..1a100be 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -752,7 +752,7 @@ is a spool. If not using procmail, return GROUP." (goto-char (point-min)) (when (looking-at ">From ") (replace-match "X-From-Line: ") ) - (gnus-run-hooks 'nnmail-prepare-incoming-header-hook) + (run-hooks 'nnmail-prepare-incoming-header-hook) (goto-char (point-max)) ;; Find the Message-ID header. (save-excursion @@ -912,7 +912,7 @@ is a spool. If not using procmail, return GROUP." ;; having a (possibly) faulty header. (beginning-of-line) (insert "X-")) - (gnus-run-hooks 'nnmail-prepare-incoming-header-hook) + (run-hooks 'nnmail-prepare-incoming-header-hook) ;; Find the end of this article. (goto-char (point-max)) (widen) @@ -987,7 +987,7 @@ is a spool. If not using procmail, return GROUP." (insert "Original-"))) (forward-line 1) (insert "Message-ID: " (setq message-id (nnmail-message-id)) "\n")) - (gnus-run-hooks 'nnmail-prepare-incoming-header-hook) + (run-hooks 'nnmail-prepare-incoming-header-hook) ;; Find the end of this article. (goto-char (point-max)) (widen) @@ -1024,7 +1024,7 @@ FUNC will be called with the buffer narrowed to each mail." (nnheader-insert-file-contents incoming) (unless (zerop (buffer-size)) (goto-char (point-min)) - (save-excursion (gnus-run-hooks 'nnmail-prepare-incoming-hook)) + (save-excursion (run-hooks 'nnmail-prepare-incoming-hook)) ;; Handle both babyl, MMDF and unix mail formats, since movemail will ;; use the former when fetching from a mailbox, the latter when ;; fetching from a file. @@ -1066,7 +1066,7 @@ FUNC will be called with the group name to determine the article number." (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t) (replace-match " " t t)) ;; Allow washing. - (gnus-run-hooks 'nnmail-split-hook) + (run-hooks 'nnmail-split-hook) (if (and (symbolp nnmail-split-methods) (fboundp nnmail-split-methods)) (let ((split @@ -1494,7 +1494,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (message-fetch-field header)))) (defun nnmail-check-duplication (message-id func artnum-func) - (gnus-run-hooks 'nnmail-prepare-incoming-message-hook) + (run-hooks 'nnmail-prepare-incoming-message-hook) ;; If this is a duplicate message, then we do not save it. (let* ((duplication (nnmail-cache-id-exists-p message-id)) (case-fold-search t) @@ -1551,7 +1551,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." ;; We first activate all the groups. (nnmail-activate method) ;; Allow the user to hook. - (gnus-run-hooks 'nnmail-pre-get-new-mail-hook) + (run-hooks 'nnmail-pre-get-new-mail-hook) ;; Open the message-id cache. (nnmail-cache-open) ;; The we go through all the existing spool files and split the @@ -1596,12 +1596,12 @@ See the documentation for the variable `nnmail-split-fancy' for documentation." (nnmail-get-value "%s-active-file" method)) (when exit-func (funcall exit-func)) - (gnus-run-hooks 'nnmail-read-incoming-hook) + (run-hooks 'nnmail-read-incoming-hook) (nnheader-message 3 "%s: Reading incoming mail...done" method)) ;; Close the message-id cache. (nnmail-cache-close) ;; Allow the user to hook. - (gnus-run-hooks 'nnmail-post-get-new-mail-hook) + (run-hooks 'nnmail-post-get-new-mail-hook) ;; Delete all the temporary files. (while incomings (setq incoming (pop incomings)) @@ -1739,6 +1739,7 @@ If ARGS, PROMPT is used as an argument to `format'." (princ "\n"))))) (defun nnmail-purge-split-history (group) + "Remove all instances of GROUP from `nnmail-split-history'." (let ((history nnmail-split-history) prev) (while history diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el index 92c4da8..ee703ff 100644 --- a/lisp/nnmbox.el +++ b/lisp/nnmbox.el @@ -463,8 +463,8 @@ (nnmail-insert-lines) (nnmail-insert-xref group-art) (nnmbox-insert-newsgroup-line group-art) - (gnus-run-hooks 'nnmail-prepare-save-mail-hook) - (gnus-run-hooks 'nnmbox-prepare-save-mail-hook) + (run-hooks 'nnmail-prepare-save-mail-hook) + (run-hooks 'nnmbox-prepare-save-mail-hook) group-art)) (defun nnmbox-insert-newsgroup-line (group-art) diff --git a/lisp/nnmh.el b/lisp/nnmh.el index 0001703..ab9716c 100644 --- a/lisp/nnmh.el +++ b/lisp/nnmh.el @@ -429,8 +429,8 @@ (unless noinsert (nnmail-insert-lines) (nnmail-insert-xref group-art)) - (gnus-run-hooks 'nnmail-prepare-save-mail-hook) - (gnus-run-hooks 'nnmh-prepare-save-mail-hook) + (run-hooks 'nnmail-prepare-save-mail-hook) + (run-hooks 'nnmh-prepare-save-mail-hook) (goto-char (point-min)) (while (looking-at "From ") (replace-match "X-From-Line: ") diff --git a/lisp/nnml.el b/lisp/nnml.el index d208e26..68dcc5f 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -586,8 +586,8 @@ all. This may very well take some time.") (let (chars headers) (setq chars (nnmail-insert-lines)) (nnmail-insert-xref group-art) - (gnus-run-hooks 'nnmail-prepare-save-mail-hook) - (gnus-run-hooks 'nnml-prepare-save-mail-hook) + (run-hooks 'nnmail-prepare-save-mail-hook) + (run-hooks 'nnml-prepare-save-mail-hook) (goto-char (point-min)) (while (looking-at "From ") (replace-match "X-From-Line: ") diff --git a/lisp/nnspool.el b/lisp/nnspool.el index eec8578..50fc4b6 100644 --- a/lisp/nnspool.el +++ b/lisp/nnspool.el @@ -345,7 +345,7 @@ there.") (nnheader-report 'nnspool "%s" (buffer-string)) (message "nnspool: %s" nnspool-status-string) (ding) - (gnus-run-hooks 'nnspool-rejected-article-hook)))) + (run-hooks 'nnspool-rejected-article-hook)))) (defun nnspool-retrieve-headers-with-nov (articles &optional fetch-old) (if (or gnus-nov-is-evil nnspool-nov-is-evil) diff --git a/lisp/nntp.el b/lisp/nntp.el index 9d6b231..560dae1 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -805,7 +805,7 @@ password contained in '~/.nntp-authinfo'." (defun nntp-open-connection (buffer) "Open a connection to PORT on ADDRESS delivering output to BUFFER." - (gnus-run-hooks 'nntp-prepare-server-hook) + (run-hooks 'nntp-prepare-server-hook) (let* ((pbuffer (nntp-make-process-buffer buffer)) (process (condition-case () @@ -826,7 +826,7 @@ password contained in '~/.nntp-authinfo'." (erase-buffer) (set-buffer nntp-server-buffer) (let ((nnheader-callback-function nil)) - (gnus-run-hooks 'nntp-server-opened-hook)))) + (run-hooks 'nntp-server-opened-hook)))) (when (buffer-name (process-buffer process)) (kill-buffer (process-buffer process))) nil)))) diff --git a/lisp/score-mode.el b/lisp/score-mode.el index c0b475b..fdb8d71 100644 --- a/lisp/score-mode.el +++ b/lisp/score-mode.el @@ -60,7 +60,7 @@ This mode is an extended emacs-lisp mode. (setq mode-name "Score") (lisp-mode-variables nil) (make-local-variable 'gnus-score-edit-exit-function) - (gnus-run-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook)) + (run-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook)) (defun gnus-score-make-menu-bar () (unless (boundp 'gnus-score-menu) @@ -70,7 +70,7 @@ This mode is an extended emacs-lisp mode. ["Exit" gnus-score-edit-exit t] ["Insert date" gnus-score-edit-insert-date t] ["Format" gnus-score-pretty-print t])) - (gnus-run-hooks 'gnus-score-menu-hook))) + (run-hooks 'gnus-score-menu-hook))) (defun gnus-score-edit-insert-date () "Insert date in numerical format." diff --git a/texi/ChangeLog b/texi/ChangeLog index 24b2944..2753b44 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,11 @@ +1998-02-18 Jason R Mastaler + + * gnus.texi: Corrected typo. + +Thu Feb 19 02:20:29 1998 Francois Felix Ingrand + + * gnus.texi (Sorting): Fix order of args. + Sun Feb 15 23:04:02 1998 Lars Magne Ingebrigtsen * gnus.texi (NNTP): Change. diff --git a/texi/gnus.texi b/texi/gnus.texi index 067a28d..ab9ea6f 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Quassia Gnus 0.29 Manual +@settitle Quassia Gnus 0.30 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -313,7 +313,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Quassia Gnus 0.29 Manual +@title Quassia Gnus 0.30 Manual @author by Lars Magne Ingebrigtsen @page @@ -349,7 +349,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 Quassia Gnus 0.29. +This manual corresponds to Quassia Gnus 0.30. @end ifinfo @@ -5042,8 +5042,8 @@ say something like: @lisp (setq gnus-thread-sort-functions - '((lambda (t1 t2) - (not (gnus-thread-sort-by-number t2 t1))) + '((lambda (t1 t2) + (not (gnus-thread-sort-by-number t1 t2))) gnus-thread-sort-by-score)) @end lisp @@ -8891,7 +8891,7 @@ In this example, both login name and password have been supplied for the former server, while the latter has only the login name listed, and the user will be prompted for the password. -Remember to not leave the @file{~/.netrc} world-readable. +Remember to not leave the @file{~/.authinforc} file world-readable. @item nntp-server-action-alist @vindex nntp-server-action-alist diff --git a/texi/message.texi b/texi/message.texi index 972f238..fb5f8ff 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 0.29 Manual +@settitle Message 0.30 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -39,7 +39,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 0.29 Manual +@title Message 0.30 Manual @author by Lars Magne Ingebrigtsen @page @@ -80,7 +80,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 0.29. Message is distributed with +This manual corresponds to Message 0.30. Message is distributed with the Gnus distribution bearing the same version number as this manual has. -- 1.7.10.4