From: yamaoka Date: Fri, 14 Dec 2001 00:58:26 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~19 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2b8a4c33b22bf4418c156f9fc9dfcf7db2ebb237;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aadc8d7..c545d4e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,53 @@ +2001-12-12 Simon Josefsson + + * nnvirtual.el (nnvirtual-always-rescan) + (nnvirtual-component-regexp): Fix doc. + + * nnoo.el (defvoo): Add doc to defvoo variables. + + * nnml.el (nnml-directory, nnml-active-file) + (nnml-newsgroups-file, nnml-get-new-mail, nnml-nov-is-evil) + (nnml-marks-is-evil, nnml-filenames-are-evil) + (nnml-prepare-save-mail-hook, nnml-inhibit-expiry): Fix doc. + + * nnmh.el (nnmh-directory, nnmh-get-new-mail) + (nnmh-prepare-save-mail-hook, nnmh-be-safe): Fix doc. + (nnmh-possibly-change-directory): Use `nnheader-report' instead of + `error'. + + * nnmbox.el (nnmbox-mbox-file, nnmbox-active-file) + (nnmbox-get-new-mail, nnmbox-prepare-save-mail-hook): + + * nnfolder.el (nnfolder-directory, nnfolder-active-file) + (nnfolder-newsgroups-file, nnfolder-get-new-mail) + (nnfolder-save-buffer-hook, nnfolder-inhibit-expiry) + (nnfolder-nov-is-evil, nnfolder-marks-is-evil): Fix doc. + + * nnbabyl.el (nnbabyl-mbox-file, nnbabyl-active-file) + (nnbabyl-get-new-mail, nnbabyl-prepare-save-mail-hook): Fix doc. + + * imap.el, nnimap.el: Fix indentation. + + * gnus-sieve.el (gnus-sieve-article-add-rule): Autoload it. + +2001-12-12 Didier Verna + + * gnus-msg.el (gnus-group-news): New function. + * gnus-group.el (gnus-group-mode-map): bind it to `i'. + * gnus-group.el (gnus-group-make-menu-bar): add a menu item for it. + * gnus-salt.el (gnus-carpal-group-buffer-buttons): add a button + for it. + * gnus-msg.el (gnus-summary-news-other-window): New function. + * gnus-msg.el ((gnus-summary-send-map "S" gnus-summary-mode-map)): + bind it to `i'. + * gnus-sum.el (gnus-summary-mode-map): bind it to `i'. + * gnus-sum.el (gnus-summary-make-menu-bar): add a menu item for it. + * gnus-salt.el (gnus-carpal-summary-buffer-buttons): add a button + for it (called with a prefix). + * gnus-msg.el (gnus-configure-posting-styles): add an optional + group-name argument. + * gnus-msg.el (gnus-setup-message): use it. + 2001-12-12 00:00:00 ShengHuo ZHU * gnus-sum.el (gnus-summary-show-article): Fix doc. @@ -47,7 +97,7 @@ * gnus-sum.el (gnus-summary-print-truncate-and-quote): New. (gnus-summary-print-article): Use it. - + * gnus-util.el (gnus-replace-in-string): Typo. 2001-12-06 10:00:00 ShengHuo ZHU @@ -65,7 +115,7 @@ * dgnushack.el (dgnushack-compile): nnrss.el and nnslashdot.el don't depend on nnweb, url, w3. - * nnrss.el: Use mm-url. + * nnrss.el: Use mm-url. 2001-12-06 00:00:00 ShengHuo ZHU @@ -78,7 +128,7 @@ 2001-12-05 12:00:00 ShengHuo ZHU - * gnus-group.el (gnus-group-find-new-groups): Fix doc. + * gnus-group.el (gnus-group-find-new-groups): Fix doc. From: Stefan Monnier 2001-12-05 Katsumi Yamaoka @@ -116,7 +166,7 @@ * message.el (message-make-mft): Fix the m-s-a-file regexp. From Paul Jarc . - + 2001-11-30 21:00:00 ShengHuo ZHU * message.el: New variable message-subscribed-address-file; @@ -127,7 +177,7 @@ * message.el (message-tab-body-function): Set to nil. (message-tab): Use text-mode-map or global-map. Suggested by Kai Gro,A_(Bjohann . - + 2001-11-30 Simon Josefsson * gnus-agent.el (gnus-agent-fetch-headers): Use gnus-range-add diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 304899b..82f3bc8 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -551,6 +551,7 @@ simple manner.") "l" gnus-group-list-groups "L" gnus-group-list-all-groups "m" gnus-group-mail + "i" gnus-group-news "g" gnus-group-get-new-news "\M-g" gnus-group-get-new-news-this-group "R" gnus-group-restart @@ -879,7 +880,8 @@ simple manner.") ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)] ["Brew SOUP" gnus-group-brew-soup (fboundp 'gnus-soup-pack-packet)]) ["Send a mail" gnus-group-mail t] - ["Post an article..." gnus-group-post-news t] + ["Send a message (mail or news)" gnus-group-post-news t] + ["Create a local message" gnus-group-news t] ["Check for new news" gnus-group-get-new-news ,@(if (featurep 'xemacs) '(t) '(:help "Get newly arrived articles")) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index c6c0cd5..c23b14c 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -234,6 +234,7 @@ Thank you for your help in stamping out bugs. (gnus-define-keys (gnus-summary-send-map "S" gnus-summary-mode-map) "p" gnus-summary-post-news + "i" gnus-summary-news-other-window "f" gnus-summary-followup "F" gnus-summary-followup-with-original "c" gnus-summary-cancel-article @@ -283,7 +284,16 @@ Thank you for your help in stamping out bugs. (user-agent . Gnus)))) (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc) (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc) - (add-hook 'message-mode-hook 'gnus-configure-posting-styles) + ;; #### FIXME: for a reason that I did not manage to identify yet, + ;; the variable `gnus-newsgroup-name' does not honor a dynamically + ;; scoped or setq'ed value from a caller like `C-u gnus-summary-mail'. + ;; After evaluation of @forms below, it gets the value we actually want + ;; to override, and the posting styles are used. For that reason, I've + ;; added an optional argument to `gnus-configure-posting-styles' to + ;; make sure that the correct value for the group name is used. -- drv + (add-hook 'message-mode-hook + (lambda () + (gnus-configure-posting-styles ,group))) (unwind-protect (progn ,@forms) @@ -421,15 +431,47 @@ If ARG is 1, prompt for a group name to find the posting style." (gnus-read-active-file-p)) (gnus-group-group-name)) "")) + ;; #### see comment in gnus-setup-message -- drv (gnus-setup-message 'message (message-mail))) (save-excursion (set-buffer buffer) (setq gnus-newsgroup-name group))))) +(defun gnus-group-news (&optional arg) + "Start composing a news. +If ARG, post to group under point. +If ARG is 1, prompt for group name to post to. + +This function prepares a news even when using mail groups. This is useful +for posting messages to mail groups without actually sending them over the +network. The corresponding backend must have a 'request-post method." + (interactive "P") + ;; We can't `let' gnus-newsgroup-name here, since that leads + ;; to local variables leaking. + (let ((group gnus-newsgroup-name) + (buffer (current-buffer))) + (unwind-protect + (progn + (setq gnus-newsgroup-name + (if arg + (if (= 1 (prefix-numeric-value arg)) + (completing-read "Use group: " + gnus-active-hashtb nil + (gnus-read-active-file-p)) + (gnus-group-group-name)) + "")) + ;; #### see comment in gnus-setup-message -- drv + (gnus-setup-message 'message + (message-news (gnus-group-real-name gnus-newsgroup-name)))) + (save-excursion + (set-buffer buffer) + (setq gnus-newsgroup-name group))))) + (defun gnus-group-post-news (&optional arg) - "Start composing a news message. -If ARG, post to the group under point. -If ARG is 1, prompt for a group name." + "Start composing a message (a news by default). +If ARG, post to group under point. If ARG is 1, prompt for group name. +Depending on the selected group, the message might be either a mail or +a news." (interactive "P") ;; Bind this variable here to make message mode hooks work ok. (let ((gnus-newsgroup-name @@ -441,10 +483,78 @@ If ARG is 1, prompt for a group name." ""))) (gnus-post-news 'post gnus-newsgroup-name))) -(defun gnus-summary-post-news () - "Start composing a news message." - (interactive) - (gnus-post-news 'post gnus-newsgroup-name)) +(defun gnus-summary-mail-other-window (&optional arg) + "Start composing a mail in another window. +Use the posting of the current group by default. +If ARG, don't do that. If ARG is 1, prompt for group name to find the +posting style." + (interactive "P") + ;; We can't `let' gnus-newsgroup-name here, since that leads + ;; to local variables leaking. + (let ((group gnus-newsgroup-name) + (buffer (current-buffer))) + (unwind-protect + (progn + (setq gnus-newsgroup-name + (if arg + (if (= 1 (prefix-numeric-value arg)) + (completing-read "Use group: " + gnus-active-hashtb nil + (gnus-read-active-file-p)) + "") + gnus-newsgroup-name)) + ;; #### see comment in gnus-setup-message -- drv + (gnus-setup-message 'message (message-mail))) + (save-excursion + (set-buffer buffer) + (setq gnus-newsgroup-name group))))) + +(defun gnus-summary-news-other-window (&optional arg) + "Start composing a news in another window. +Post to the current group by default. +If ARG, don't do that. If ARG is 1, prompt for group name to post to. + +This function prepares a news even when using mail groups. This is useful +for posting messages to mail groups without actually sending them over the +network. The corresponding backend must have a 'request-post method." + (interactive "P") + ;; We can't `let' gnus-newsgroup-name here, since that leads + ;; to local variables leaking. + (let ((group gnus-newsgroup-name) + (buffer (current-buffer))) + (unwind-protect + (progn + (setq gnus-newsgroup-name + (if arg + (if (= 1 (prefix-numeric-value arg)) + (completing-read "Use group: " + gnus-active-hashtb nil + (gnus-read-active-file-p)) + "") + gnus-newsgroup-name)) + ;; #### see comment in gnus-setup-message -- drv + (gnus-setup-message 'message + (message-news (gnus-group-real-name gnus-newsgroup-name)))) + (save-excursion + (set-buffer buffer) + (setq gnus-newsgroup-name group))))) + +(defun gnus-summary-post-news (&optional arg) + "Start composing a message. Post to the current group by default. +If ARG, don't do that. If ARG is 1, prompt for a group name to post to. +Depending on the selected group, the message might be either a mail or +a news." + (interactive "P") + ;; Bind this variable here to make message mode hooks work ok. + (let ((gnus-newsgroup-name + (if arg + (if (= 1 (prefix-numeric-value arg)) + (completing-read "Newsgroup: " gnus-active-hashtb nil + (gnus-read-active-file-p)) + "") + gnus-newsgroup-name))) + (gnus-post-news 'post gnus-newsgroup-name))) + (defun gnus-summary-followup (yank &optional force-news) "Compose a followup to an article. @@ -1122,12 +1232,6 @@ The current group name will be inserted at \"%s\".") (when (gnus-y-or-n-p "Send this complaint? ") (message-send-and-exit))))))) -(defun gnus-summary-mail-other-window () - "Compose mail in other window." - (interactive) - (gnus-setup-message 'message - (message-mail))) - (defun gnus-mail-parse-comma-list () (let (accumulated beg) @@ -1529,10 +1633,10 @@ this is a reply." ;;; Posting styles. -(defun gnus-configure-posting-styles () +(defun gnus-configure-posting-styles (&optional group-name) "Configure posting styles according to `gnus-posting-styles'." (unless gnus-inhibit-posting-styles - (let ((group (or gnus-newsgroup-name "")) + (let ((group (or group-name gnus-newsgroup-name "")) (styles gnus-posting-styles) style match variable attribute value v results filep name address element) diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el index da9075d..9a04070 100644 --- a/lisp/gnus-salt.el +++ b/lisp/gnus-salt.el @@ -899,6 +899,7 @@ Two predefined functions are available: ("matching" . gnus-group-list-matching) ("post" . gnus-group-post-news) ("mail" . gnus-group-mail) + ("local" . (lambda () (interactive) (gnus-group-news 0))) ("rescan" . gnus-group-get-new-news) ("browse-foreign" . gnus-group-browse-foreign) ("exit" . gnus-group-exit))) @@ -929,7 +930,8 @@ Two predefined functions are available: ("kill" . gnus-summary-kill-thread) "post" ("post" . gnus-summary-post-news) - ("mail" . gnus-summary-mail) + ("local" . gnus-summary-news-other-window) + ("mail" . gnus-summary-mail-other-window) ("followup" . gnus-summary-followup-with-original) ("reply" . gnus-summary-reply-with-original) ("cancel" . gnus-summary-cancel-article) diff --git a/lisp/gnus-sieve.el b/lisp/gnus-sieve.el index 209912c..2553358 100644 --- a/lisp/gnus-sieve.el +++ b/lisp/gnus-sieve.el @@ -120,6 +120,7 @@ Return NIL if no rule could be guessed." (when (message-fetch-field "sender") `(sieve address "sender" ,(regexp-quote (message-fetch-field "sender"))))) +;;;###autoload (defun gnus-sieve-article-add-rule () (interactive) (gnus-summary-select-article nil 'force) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index a335578..4a4d70f 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1329,7 +1329,7 @@ These variables can be used to set variables in the group parameters while still allowing them to affect operations done in other buffers. For example: -(setq gnus-newsgroup-variables +\(setq gnus-newsgroup-variables '(message-use-followup-to (gnus-visible-headers . \"^From:\\\\|^Newsgroups:\\\\|^Subject:\\\\|^Date:\\\\|^To:\"))) @@ -1563,6 +1563,7 @@ increase the score of each group you read." gnus-mouse-2 gnus-mouse-pick-article "m" gnus-summary-mail-other-window "a" gnus-summary-post-news + "i" gnus-summary-news-other-window "x" gnus-summary-limit-to-unread "s" gnus-summary-isearch-article "t" gnus-article-toggle-headers @@ -2014,7 +2015,7 @@ increase the score of each group you read." (easy-menu-define gnus-summary-post-menu gnus-summary-mode-map "" `("Post" - ["Post an article" gnus-summary-post-news + ["Send a message (mail or news)" gnus-summary-post-news ,@(if (featurep 'xemacs) '(t) '(:help "Post an article"))] ["Followup" gnus-summary-followup @@ -2040,6 +2041,7 @@ increase the score of each group you read." ["Resend message" gnus-summary-resend-message t] ["Send bounced mail" gnus-summary-resend-bounced-mail t] ["Send a mail" gnus-summary-mail-other-window t] + ["Create a local message" gnus-summary-news-other-window t] ["Uuencode and post" gnus-uu-post-news ,@(if (featurep 'xemacs) '(t) '(:help "Post a uuencoded article"))] @@ -7958,7 +7960,7 @@ article. If BACKWARD (the prefix) is non-nil, search backward instead." (defun gnus-summary-print-truncate-and-quote (string &optional len) "Truncate to LEN and quote all \"(\"'s in STRING." (gnus-replace-in-string (if (and len (> (length string) len)) - (substring string 0 len) + (substring string 0 len) string) "[()]" "\\\\\\&")) @@ -7992,11 +7994,11 @@ to save in." (list (concat "(" (gnus-summary-print-truncate-and-quote - (mail-header-subject gnus-current-headers) + (mail-header-subject gnus-current-headers) 66) ")") (concat "(" (gnus-summary-print-truncate-and-quote - (mail-header-from gnus-current-headers) + (mail-header-from gnus-current-headers) 45) ")"))) (ps-right-header (list @@ -8018,7 +8020,7 @@ If ARG (the prefix) is a number, show the article with the charset defined in `gnus-summary-show-article-charset-alist', or the charset input. If ARG (the prefix) is non-nil and not a number, show the raw article -without any article massaging functions being run. Normally, the key strokes +without any article massaging functions being run. Normally, the key strokes are `C-u g'." (interactive "P") (cond diff --git a/lisp/gnus.el b/lisp/gnus.el index 8a13c12..9e0f4c9 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1850,7 +1850,7 @@ covered by that variable." ;; `download' is a agent flag private to each gnus installation ;; `unsend' are for nndraft groups only ;; `score' is not a proper mark -(defconst gnus-article-unpropagated-mark-lists +(defconst gnus-article-unpropagated-mark-lists '(seen cache download unsend score) "Marks that shouldn't be propagated to backends. Typical marks are those that make no sense in a standalone backend, @@ -2077,7 +2077,8 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.") ("gnus-msg" (gnus-summary-send-map keymap) gnus-article-mail gnus-copy-article-buffer gnus-following-method) ("gnus-msg" :interactive t - gnus-group-post-news gnus-group-mail gnus-summary-post-news + gnus-group-post-news gnus-group-mail gnus-group-news + gnus-summary-post-news gnus-summary-news-other-window gnus-summary-followup gnus-summary-followup-with-original gnus-summary-cancel-article gnus-summary-supersede-article gnus-post-news gnus-summary-reply gnus-summary-reply-with-original @@ -2916,7 +2917,7 @@ You should probably use `gnus-find-method-for-group' instead." (defun gnus-group-fast-parameter (group symbol &optional allow-list) "For GROUP, return the value of SYMBOL. -You should call this in the `gnus-group-buffer' buffer. +You should call this in the `gnus-group-buffer' buffer. The function `gnus-group-find-parameter' will do that for you." ;; The speed trick: No cons'ing and quit early. (or (let ((params (funcall gnus-group-get-parameter-function group))) @@ -2933,7 +2934,7 @@ The function `gnus-group-find-parameter' will do that for you." ;; The car is regexp matching for matching the group name. (when (string-match (car head) group) ;; The cdr is the parameters. - (setq result (gnus-group-parameter-value (cdr head) + (setq result (gnus-group-parameter-value (cdr head) symbol allow-list)) (when result ;; Expand if necessary. diff --git a/lisp/nnbabyl.el b/lisp/nnbabyl.el index 1854a4a..78676fe 100644 --- a/lisp/nnbabyl.el +++ b/lisp/nnbabyl.el @@ -44,25 +44,17 @@ (nnoo-declare nnbabyl) (defvoo nnbabyl-mbox-file (expand-file-name "~/RMAIL") - "The name of the rmail box file in the users home directory. - -This variable is a virtual server slot. See the Gnus manual for details.") + "The name of the rmail box file in the users home directory.") (defvoo nnbabyl-active-file (expand-file-name "~/.rmail-active") - "The name of the active file for the rmail box. - -This variable is a virtual server slot. See the Gnus manual for details.") + "The name of the active file for the rmail box.") (defvoo nnbabyl-get-new-mail t - "If non-nil, nnbabyl will check the incoming mail file and split the mail. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, nnbabyl will check the incoming mail file and split the mail.") (defvoo nnbabyl-prepare-save-mail-hook nil - "Hook run narrowed to an article before saving. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Hook run narrowed to an article before saving.") diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 7a8f855..c19711a 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -48,9 +48,7 @@ (nnoo-declare nnfolder) (defvoo nnfolder-directory (expand-file-name message-directory) - "The name of the nnfolder directory. - -This variable is a virtual server slot. See the Gnus manual for details.") + "The name of the nnfolder directory.") (defvoo nnfolder-nov-directory nil "The name of the nnfolder NOV directory. @@ -62,9 +60,7 @@ If nil, `nnfolder-directory' is used.") (defvoo nnfolder-active-file (nnheader-concat nnfolder-directory "active") - "The name of the active file. - -This variable is a virtual server slot. See the Gnus manual for details.") + "The name of the active file.") ;; I renamed this variable to something more in keeping with the general GNU ;; style. -SLB @@ -86,28 +82,20 @@ message, a huge time saver for large mailboxes.") (defvoo nnfolder-newsgroups-file (concat (file-name-as-directory nnfolder-directory) "newsgroups") - "Mail newsgroups description file. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Mail newsgroups description file.") (defvoo nnfolder-get-new-mail t - "If non-nil, nnfolder will check the incoming mail file and split the mail. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, nnfolder will check the incoming mail file and split the mail.") (defvoo nnfolder-prepare-save-mail-hook nil "Hook run narrowed to an article before saving.") (defvoo nnfolder-save-buffer-hook nil - "Hook run before saving the nnfolder mbox buffer. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Hook run before saving the nnfolder mbox buffer.") (defvoo nnfolder-inhibit-expiry nil - "If non-nil, inhibit expiry. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, inhibit expiry.") @@ -139,9 +127,7 @@ This variable shouldn't be flipped much. If you have, for some reason, set this to t, and want to set it to nil again, you should always run the `nnfolder-generate-active-file' command. The function will go through all nnfolder directories and generate nov databases for them -all. This may very well take some time. - -This variable is a virtual server slot. See the Gnus manual for details.") +all. This may very well take some time.") (defvoo nnfolder-nov-file-suffix ".nov") @@ -156,9 +142,7 @@ separately from `.newsrc.eld'. If you have, for some reason, set this to t, and want to set it to nil again, you should always remove the corresponding marks file (usually base nnfolder file name concatenated with `.mrk', but see `nnfolder-marks-file-suffix') for -the group. Then the marks file will be regenerated properly by Gnus. - -This variable is a virtual server slot. See the Gnus manual for details.") +the group. Then the marks file will be regenerated properly by Gnus.") (defvoo nnfolder-marks nil) diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el index 966e468..ced6c4f 100644 --- a/lisp/nnmbox.el +++ b/lisp/nnmbox.el @@ -38,24 +38,16 @@ (nnoo-declare nnmbox) (defvoo nnmbox-mbox-file (expand-file-name "~/mbox") - "The name of the mail box file in the user's home directory. - -This variable is a virtual server slot. See the Gnus manual for details.") + "The name of the mail box file in the user's home directory.") (defvoo nnmbox-active-file (expand-file-name "~/.mbox-active") - "The name of the active file for the mail box. - -This variable is a virtual server slot. See the Gnus manual for details.") + "The name of the active file for the mail box.") (defvoo nnmbox-get-new-mail t - "If non-nil, nnmbox will check the incoming mail file and split the mail. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, nnmbox will check the incoming mail file and split the mail.") (defvoo nnmbox-prepare-save-mail-hook nil - "Hook run narrowed to an article before saving. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Hook run narrowed to an article before saving.") diff --git a/lisp/nnmh.el b/lisp/nnmh.el index 24829dd..91fbcc0 100644 --- a/lisp/nnmh.el +++ b/lisp/nnmh.el @@ -44,27 +44,19 @@ (nnoo-declare nnmh) (defvoo nnmh-directory message-directory - "*Mail spool directory. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Mail spool directory.") (defvoo nnmh-get-new-mail t - "*If non-nil, nnmh will check the incoming mail file and split the mail. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, nnmh will check the incoming mail file and split the mail.") (defvoo nnmh-prepare-save-mail-hook nil - "*Hook run narrowed to an article before saving. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Hook run narrowed to an article before saving.") (defvoo nnmh-be-safe nil - "*If non-nil, nnmh will check all articles to make sure whether they are new or not. + "If non-nil, nnmh will check all articles to make sure whether they are new or not. Go through the .nnmh-articles file and compare with the actual articles in this folder. The articles that are \"new\" will be marked -as unread by Gnus. - -This variable is a virtual server slot. See the Gnus manual for details.") +as unread by Gnus.") @@ -442,7 +434,7 @@ This variable is a virtual server slot. See the Gnus manual for details.") (pathname-coding-system nnmail-pathname-coding-system)) (if (file-directory-p pathname) (setq nnmh-current-directory pathname) - (error "No such newsgroup: %s" newsgroup))))) + (nnheader-report 'nnmh "Not a directory: %s" nnmh-directory))))) (defun nnmh-possibly-create-directory (group) (let (dir dirs) diff --git a/lisp/nnml.el b/lisp/nnml.el index 6379cd1..7f1a3e6 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -46,26 +46,18 @@ (nnoo-declare nnml) (defvoo nnml-directory message-directory - "Spool directory for the nnml mail backend. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Spool directory for the nnml mail backend.") (defvoo nnml-active-file (expand-file-name "active" nnml-directory) - "Mail active file. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Mail active file.") (defvoo nnml-newsgroups-file (expand-file-name "newsgroups" nnml-directory) - "Mail newsgroups description file. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Mail newsgroups description file.") (defvoo nnml-get-new-mail t - "If non-nil, nnml will check the incoming mail file and split the mail. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, nnml will check the incoming mail file and split the mail.") (defvoo nnml-nov-is-evil nil "If non-nil, Gnus will never generate and use nov databases for mail spools. @@ -74,9 +66,7 @@ This variable shouldn't be flipped much. If you have, for some reason, set this to t, and want to set it to nil again, you should always run the `nnml-generate-nov-databases' command. The function will go through all nnml directories and generate nov databases for them -all. This may very well take some time. - -This variable is a virtual server slot. See the Gnus manual for details.") +all. This may very well take some time.") (defvoo nnml-marks-is-evil nil "If non-nil, Gnus will never generate and use marks file for mail spools. @@ -85,26 +75,18 @@ separately from `.newsrc.eld'. If you have, for some reason, set this to t, and want to set it to nil again, you should always remove the corresponding marks file (usually named `.marks' in the nnml group directory, but see `nnml-marks-file-name') for the group. Then the -marks file will be regenerated properly by Gnus. - -This variable is a virtual server slot. See the Gnus manual for details.") +marks file will be regenerated properly by Gnus.") (defvoo nnml-filenames-are-evil t "If non-nil, Gnus will not assume that the articles file name is the same as the article number listed in the nov database. This -variable should be set if any of the files are compressed. - -This variable is a virtual server slot. See the Gnus manual for details.") +variable should be set if any of the files are compressed.") (defvoo nnml-prepare-save-mail-hook nil - "Hook run narrowed to an article before saving. - -This variable is a virtual server slot. See the Gnus manual for details.") + "Hook run narrowed to an article before saving.") (defvoo nnml-inhibit-expiry nil - "If non-nil, inhibit expiry. - -This variable is a virtual server slot. See the Gnus manual for details.") + "If non-nil, inhibit expiry.") diff --git a/lisp/nnoo.el b/lisp/nnoo.el index da9da59..5bedae1 100644 --- a/lisp/nnoo.el +++ b/lisp/nnoo.el @@ -38,7 +38,7 @@ "The same as `defvar', only takes list of variables to MAP to." `(prog1 ,(if doc - `(defvar ,var ,init ,doc) + `(defvar ,var ,init ,(concat doc "\n\nThis is a Gnus server variable. See Info node `(gnus)Select Methods'.")) `(defvar ,var ,init)) (nnoo-define ',var ',map))) (put 'defvoo 'lisp-indent-function 2) diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index ed1d7de..c19bfb6 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -46,13 +46,13 @@ (nnoo-declare nnvirtual) (defvoo nnvirtual-always-rescan t - "*If non-nil, always scan groups for unread articles when entering a group. + "If non-nil, always scan groups for unread articles when entering a group. If this variable is nil and you read articles in a component group after the virtual group has been activated, the read articles from the component group will show up when you enter the virtual group.") (defvoo nnvirtual-component-regexp nil - "*Regexp to match component groups.") + "Regexp to match component groups.") (defvoo nnvirtual-component-groups nil "Component group in this nnvirtual group.") diff --git a/texi/ChangeLog b/texi/ChangeLog index 6ab618a..94c35ba 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,9 @@ +2001-12-12 Didier Verna + + * gnus.texi (Misc Group Stuff): advertise `gnus-group-news'. + * gnus.texi (Summary Mail Commands): advertise + `gnus-summary-news-other-window'. + 2001-12-10 Kai Gro,A_(Bjohann * gnus.texi (Advanced Scoring Examples): Clarify that the @@ -78,7 +84,7 @@ 2001-11-12 Simon Josefsson * gnus.texi (Security, Using GPG): - * message.texi (Security): + * message.texi (Security): * emacs-mime.texi (MML Definition): Add PGP. 2001-11-09 Kai Gro,A_(Bjohann @@ -130,7 +136,7 @@ * Makefile.in: Add sieve. - * gnus.texi (Misc Group Stuff): + * gnus.texi (Misc Group Stuff): (Group Parameters): Add Sieve Commands. (top-level): Include Sieve manual after Emacs MIME. @@ -143,7 +149,7 @@ * gnus.texi (NNTP): Added documentation for `nntp-prepare-post-hook'. - + 2001-10-29 Simon Josefsson * gnus.texi (Customizing Articles): Sort list. Remove @@ -186,10 +192,10 @@ users. 2001-10-17 21:00:00 ShengHuo ZHU - + * gnus.texi (Archived Messages): Add new line after @item. From: Jesper Harder - + 2001-10-17 21:00:00 ShengHuo ZHU * gnus.texi (Formatting Basics): Extended format specs. @@ -232,7 +238,7 @@ * gnuslogo-refcard.eps: Rename from gnuslog.refcard, and set a suitable bounding box. - + * Makefile.in (.dvi.ps): New rule. (refcard.pdf): Use gnuslogo-refcard.eps. @@ -274,7 +280,7 @@ * infohack.el (infohack-remove-unsupported): Remove @iflatex lines. (infohack): Specify a coding-system to save info files. From Katsumi Yamaoka - + 2001-09-28 00:00:00 ShengHuo ZHU * gnusconfig.tex.in: Use cmss if pfu is not found. @@ -313,9 +319,9 @@ * gnus.texi: eps path fix. * postamble.tex: Ditto. * texi2latex.el: Ditto. - + * Makefile.in: Move some to ps/Makefile.in. - + 2001-09-24 Simon Josefsson * etc/*, herds/*, misc/*, picons/*, screen/*, smilies/*, xface/*: @@ -478,7 +484,7 @@ 2001-08-17 14:24:14 Lars Magne Ingebrigtsen - * gnus.texi (Group Parameters): Document regexp substitution. + * gnus.texi (Group Parameters): Document regexp substitution. (Group Parameters): Addition. 2001-08-11 23:00:00 ShengHuo ZHU @@ -553,7 +559,7 @@ * gnus.texi (Fancy Mail Splitting): New variable nnmail-split-fancy-with-parent-ignore-groups - + 2001-07-24 Kai Gro,A_(Bjohann * gnus.texi (Duplicates): Make split method regexp more specific, diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index eb3a467..65b33d4 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -574,7 +574,7 @@ Summary Buffer * Choosing Articles:: $B5-;v$rFI$`(B * Paging the Article:: $BFI$s$G$$$k5-;v$r%9%/%m!<%k$9$k(B * Reply Followup and Post:: $B5-;v$rEj9F$9$k(B -* Delayed Articles:: +* Delayed Articles:: * Marking Articles:: $B5-;v$K4{FI$d4|8B@Z$l:o=|2DG=Ey$N0u$rIU$1(B $B$k(B * Limiting:: $B35N,%P%C%U%!$K@)8B$r2C$($k$3$H$,$G$-$k(B @@ -628,7 +628,7 @@ Reply, Followup and Post * Summary Mail Commands:: $B%a!<%k$rAw$k(B * Summary Post Commands:: $B%K%e!<%9$rAw$k(B * Summary Message Commands:: $BB>$N%a%C%;!<%84XO"$NL?Na(B -* Canceling and Superseding:: +* Canceling and Superseding:: Marking Articles @@ -695,7 +695,7 @@ Various Summary Stuff * Summary Group Information:: $B>pJs;X8~$NL?Na(B * Searching for Articles:: $BJ#?t5-;vL?Na(B -* Summary Generation Commands:: +* Summary Generation Commands:: * Really Various Summary Commands:: $B$"$N$d$C$+$$$JB>$KE,9g$7$J$$L?Na(B Article Buffer @@ -860,9 +860,9 @@ Agent Categories Agent Commands -* Group Agent Commands:: -* Summary Agent Commands:: -* Server Agent Commands:: +* Group Agent Commands:: +* Summary Agent Commands:: +* Server Agent Commands:: Scoring @@ -975,7 +975,7 @@ Appendices $B$3$H(B * Gnus Reference Guide:: $B?'!9$J5;=QE*$J$b$N(B * Emacs for Heathens:: Emacs $B$NMQ8l$N$,=i4|CM$H$7$F;HMQ$5$l$^$9!#(B +$B%a%C%;!<%8(B ($B%G%#%U%)%k%H$O%K%e!<%9(B) $B$N:n@.$r3+;O$7$^(B +$B$9(B (@code{gnus-group-post-news})$B!#$b$7@\F,<-$,M?$($i$l$?$i8=:_0LCV$N%0%k!<(B +$B%W$KEj9F$7$^$9!#$b$7@\F,<-$,(B 1 $B$@$C$?$i!"$I$N%0%k!<%W$KEj9F$9$k$+$r?R$M(B +$B$^$9!#$3$N4X?t$NL>A0$+$iO"A[$5$l$k$3$H$H$ON"J"$K!"@\F,<-$G%a!<%k%0%k!<%W(B +$B$,;XDj$5$l$?>l9g$O!"%K%e!<%9$NBe$o$j$K%a!<%k$NMM<0$,MQ0U$5$l$^$9!#(B @xref{Composing Messages}$B!#(B @item m @kindex m (Group) @findex gnus-group-mail -$B%a!<%k$r$I$3$+$KAw$k(B (@code{gnus-group-mail})$B!#(B@xref{Composing Messages}$B!#(B +$B%a!<%k$r$I$3$+$KAw$j$^$9(B (@code{gnus-group-mail})$B!#$b$7@\F,<-$,M?$($i$l(B +$B$?$i8=:_0LCV$N%0%k!<%W$NEj9FMM<0(B (posting style) $B$r;H$$$^$9!#$b$7@\F,<-(B +$B$,(B 1 $B$@$C$?$i!"$I$N%0%k!<%W$NEj9FMM<0$r;H$&$+$r?R$M$^$9!#(B +@xref{Composing Messages}$B!#(B + +@item i +@kindex i (Group) +@findex gnus-group-news +$B%K%e!<%9$N:n@.$r3+;O$7$^$9(B (@code{gnus-group-news})$B!#$b$7@\F,<-$,M?$($i(B +$B$l$?$i8=:_0LCV$N%0%k!<%W$KEj9F$7$^$9!#$b$7@\F,<-$,(B 1 $B$@$C$?$i!"$I$N%0%k!<(B +$B%W$KEj9F$9$k$+$r?R$M$^$9!#(B@xref{Composing Messages}$B!#(B + +$B$3$N4X?t$O!"$?$H$(%a!<%k%0%k!<%W$G;H$o$l$?$H$7$F$b!"@\(B +$B%;!<%V$5$l$^$9!#BP1~$9$k%P%C%/%(%s%I$,Ej9F$N$?$a$N%a%=%C%I(B (request-post +method) $B$r;}$C$F$$$J$1$l$P$J$j$^$;$s$,!#(B @end table $B0J2<$O%0%k!<%W%P%C%U%!$N$?$a$NJQ?t$G$9(B: @@ -4225,7 +4244,7 @@ if address "sender" "owner-ding@@hpc.uh.edu" @{ * Choosing Articles:: $B5-;v$rFI$`(B * Paging the Article:: $BFI$s$G$$$k5-;v$r%9%/%m!<%k$9$k(B * Reply Followup and Post:: $B5-;v$rEj9F$9$k(B -* Delayed Articles:: +* Delayed Articles:: * Marking Articles:: $B5-;v$K4{FI$d4|8B@Z$l:o=|2DG=Ey$N0u$rIU$1(B $B$k(B * Limiting:: $B35N,%P%C%U%!$K@)8B$r2C$($k$3$H$,$G$-$k(B @@ -4897,7 +4916,7 @@ Summary Buffer} $B$r;2>H$7$F2<$5$$!#(B * Summary Mail Commands:: $B%a!<%k$rAw$k(B * Summary Post Commands:: $B%K%e!<%9$rAw$k(B * Summary Message Commands:: $BB>$N%a%C%;!<%84XO"$NL?Na(B -* Canceling and Superseding:: +* Canceling and Superseding:: @end menu @node Summary Mail Commands @@ -4973,7 +4992,26 @@ Summary Buffer} $B$r;2>H$7$F2<$5$$!#(B @kindex S m ($B35N,(B) @findex gnus-summary-mail-other-window @c @icon{gnus-summary-mail-originate} -$BC/$+B>$N?M$K%a!<%k$rAw$j$^$9(B (@code{gnus-summary-mail-other-window})$B!#(B +$B%a!<%k$r:n@.$7$^$9(B (@code{gnus-summary-mail-other-window})$B!#%G%#%U%)%k%H(B +$B$G$O8=:_$N%0%k!<%W$NEj9FMM<0(B (posting style) $B$r;H$$$^$9!#$b$7@\F,<-$,M?(B +$B$($i$l$?$i$=$l$O;H$$$^$;$s!#$b$7@\F,<-$,(B 1 $B$@$C$?$i!"$I$N%0%k!<%W$NEj9F(B +$BMM<0$r;H$&$+$r?R$M$^$9!#(B + +@item S i +@itemx i +@kindex i (Summary) +@kindex S i (Summary) +@findex gnus-summary-news-other-window +$B%K%e!<%9$r:n@.$7$^$9(B (@code{gnus-summary-news-other-window})$B!#%G%#%U%)%k(B +$B%H$G$O8=:_$N%0%k!<%W$KEj9F$7$^$9!#$b$7@\F,<-$,M?$($i$l$?$i8=:_$N%0%k!<%W(B +$BL>$O;H$o$l$^$;$s!#$b$7@\F,<-$,(B 1 $B$@$C$?$i!"$I$N%0%k!<%W$KEj9F$9$k$+$r?R(B +$B$M$^$9!#(B + +$B$3$N4X?t$O!"$?$H$(%a!<%k%0%k!<%W$G;H$o$l$?$H$7$F$b!"@\(B +$B%;!<%V$5$l$^$9!#BP1~$9$k%P%C%/%(%s%I$,Ej9F$N$?$a$N%a%=%C%I(B (request-post +method) $B$r;}$C$F$$$J$1$l$P$J$j$^$;$s$,!#(B @item S D b @kindex S D b ($B35N,(B) @@ -5048,7 +5086,10 @@ Manual}, $B$K$5$i$J$k>pJs$,$"$j$^$9!#(B @kindex S p ($B35N,(B) @findex gnus-summary-post-news @c @icon{gnus-summary-post-news} -$B8=:_$N%0%k!<%W$K5-;v$rEj9F$7$^$9(B (@code{gnus-summary-post-news})$B!#(B +$BEj9F$9$k$?$a$N5-;v$r:n@.$7$^$9(B (@code{gnus-summary-post-news})$B!#%G%#%U%)(B +$B%k%H$G$O8=:_$N%0%k!<%W$KEj9F$7$^$9!#$b$7@\F,<-$,M?$($i$l$?$i8=:_$N%0%k!<(B +$B%WL>$O;H$o$l$^$;$s!#$b$7@\F,<-$,(B 1 $B$@$C$?$i!"Be$o$j$KJL$N$I$N%0%k!<%W$K(B +$BEj9F$9$k$+$r?R$M$^$9!#(B @item S f @itemx f @@ -8753,7 +8794,7 @@ Line Formatting})$B!#%G%#%U%)%k%H$O(B @samp{Gnus: %%b %S %Z} $B$G$9!#;HMQ2DG= @menu * Summary Group Information:: $B>pJs;X8~$NL?Na(B * Searching for Articles:: $BJ#?t5-;vL?Na(B -* Summary Generation Commands:: +* Summary Generation Commands:: * Really Various Summary Commands:: $B$"$N$d$C$+$$$JB>$KE,9g$7$J$$L?Na(B @end menu @@ -9707,7 +9748,7 @@ GNUS $B$d(B Gnus $B$G$O!"$3$N$?$A$N0-$$LdBj$G6C$+$5$l$J$$$h$&$K$9$k$K$O!"35N, @item h $B5-;v%P%C%U%!$K$*$$$F!"%X%C%@!<$,1#$5$l$F$$$k>l9g$KI=<($5$l$^$9!#(B -@c @item p +@c @item p @c Displayed when article is digitally signed or encrypted, and Gnus has @c hidden the security headers. (N.B. does not tell anything about @c security status, i.e. good or bad signature.) @@ -10627,7 +10668,7 @@ you've typed it correctly. $B$^$;$s!#0lEY(B ``connection refused'' ($B@\B3$O5qH]$5$l$^$7$?(B) $B$ruBV$r@Z$jBX$($^$9!#(B @menu -* Group Agent Commands:: -* Summary Agent Commands:: -* Server Agent Commands:: +* Group Agent Commands:: +* Summary Agent Commands:: +* Server Agent Commands:: @end menu $B40A4$J0l3g