From a16fde2294cca8705f9f6fd5082e679c61906425 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 23 Feb 1998 13:42:51 +0000 Subject: [PATCH] Sync up with qgnus-0.31. --- lisp/gnus-art.el | 41 +++++++++++++++++++++-------------------- 1 file changed, 21 insertions(+), 20 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 6cf74ac..2250433 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -107,7 +107,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored." :group 'gnus-article-hiding) (defcustom gnus-visible-headers - "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:" + "From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:" "*All headers that do not match this regexp will be hidden. This variable can also be a list of regexp of headers to remain visible. If this variable is non-nil, `gnus-ignored-headers' will be ignored." @@ -130,7 +130,7 @@ this list." :group 'gnus-article-hiding) (defcustom gnus-boring-article-headers '(empty followup-to reply-to) - "*Headers that are only to be displayed if they have interesting data. + "Headers that are only to be displayed if they have interesting data. Possible values in this list are `empty', `newsgroups', `followup-to', `reply-to', `date', `long-to', and `many-to'." :type '(set (const :tag "Headers with no content." empty) @@ -143,7 +143,7 @@ Possible values in this list are `empty', `newsgroups', `followup-to', :group 'gnus-article-hiding) (defcustom gnus-signature-separator '("^-- $" "^-- *$") - "*Regexp matching signature separator. + "Regexp matching signature separator. This can also be a list of regexps. In that case, it will be checked from head to tail looking for a separator. Searches will be done from the end of the buffer." @@ -151,7 +151,7 @@ the end of the buffer." :group 'gnus-article-signature) (defcustom gnus-signature-limit nil - "*Provide a limit to what is considered a signature. + "Provide a limit to what is considered a signature. If it is a number, no signature may not be longer (in characters) than that number. If it is a floating point number, no signature may be longer (in lines) than that number. If it is a function, the function @@ -165,12 +165,12 @@ regexp. If it matches, the text in question is not a signature." :group 'gnus-article-signature) (defcustom gnus-hidden-properties '(invisible t intangible t) - "*Property list to use for hiding text." + "Property list to use for hiding text." :type 'sexp :group 'gnus-article-hiding) (defcustom gnus-article-x-face-command - "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -" + " echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -" "*String or function to be executed to display an X-Face header. If it is a string, the command will be executed in a sub-shell asynchronously. The compressed face will be piped to this command." @@ -178,7 +178,7 @@ asynchronously. The compressed face will be piped to this command." :group 'gnus-article-washing) (defcustom gnus-article-x-face-too-ugly nil - "*Regexp matching posters whose face shouldn't be shown automatically." + "Regexp matching posters whose face shouldn't be shown automatically." :type '(choice regexp (const nil)) :group 'gnus-article-washing) @@ -249,7 +249,7 @@ Esample: (_/*word*/_)." :group 'gnus-article-emphasis) (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z" - "*Format for display of Date headers in article bodies. + "Format for display of Date headers in article bodies. See `format-time-string' for the possible values. The variable can also be function, which should return a complete Date @@ -283,7 +283,7 @@ each invocation of the saving commands." (sexp :tag "once" :format "%t\n" :value t))) (defcustom gnus-saved-headers gnus-visible-headers - "*Headers to keep if `gnus-save-all-headers' is nil. + "Headers to keep if `gnus-save-all-headers' is nil. If `gnus-save-all-headers' is non-nil, this variable will be ignored. If that variable is nil, however, all headers that match this regexp will be kept while the rest will be deleted before saving." @@ -291,7 +291,7 @@ will be kept while the rest will be deleted before saving." :type 'regexp) (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail - "*A function to save articles in your favourite format. + "A function to save articles in your favourite format. The function must be interactively callable (in other words, it must be an Emacs command). @@ -312,25 +312,25 @@ Gnus provides the following functions: (function-item gnus-summary-write-to-file))) (defcustom gnus-rmail-save-name 'gnus-plain-save-name - "*A function generating a file name to save articles in Rmail format. + "A function generating a file name to save articles in Rmail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." :group 'gnus-article-saving :type 'function) (defcustom gnus-mail-save-name 'gnus-plain-save-name - "*A function generating a file name to save articles in Unix mail format. + "A function generating a file name to save articles in Unix mail format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." :group 'gnus-article-saving :type 'function) (defcustom gnus-folder-save-name 'gnus-folder-save-name - "*A function generating a file name to save articles in MH folder. + "A function generating a file name to save articles in MH folder. The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER." :group 'gnus-article-saving :type 'function) (defcustom gnus-file-save-name 'gnus-numeric-save-name - "*A function generating a file name to save articles in article format. + "A function generating a file name to save articles in article format. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." :group 'gnus-article-saving @@ -369,7 +369,7 @@ be used as possible file names." :type 'boolean) (defcustom gnus-show-mime-method 'gnus-article-preview-mime-message - "*Function to process a MIME message. + "Function to process a MIME message. The function is called from the article buffer." :group 'gnus-article-mime :type 'function) @@ -415,7 +415,7 @@ If you want to run a special decoding program like nkf, use this hook." :group 'gnus-article-various) (defcustom gnus-article-button-face 'bold - "*Face used for highlighting buttons in the article buffer. + "Face used for highlighting buttons in the article buffer. An article button is a piece of text that you can activate by pressing `RET' or `mouse-2' above it." @@ -423,7 +423,7 @@ An article button is a piece of text that you can activate by pressing :group 'gnus-article-buttons) (defcustom gnus-article-mouse-face 'highlight - "*Face used for mouse highlighting in the article buffer. + "Face used for mouse highlighting in the article buffer. Article buttons will be displayed in this face when the cursor is above them." @@ -431,7 +431,7 @@ above them." :group 'gnus-article-buttons) (defcustom gnus-signature-face 'gnus-signature-face - "*Face used for highlighting a signature in the article buffer. + "Face used for highlighting a signature in the article buffer. Obsolete; use the face `gnus-signature-face' for customizations instead." :type 'face :group 'gnus-article-highlight @@ -1957,6 +1957,7 @@ commands: ;;; @@ article filters ;;; + (defun gnus-article-preview-mime-message () (make-local-variable 'mime-button-mother-dispatcher) (setq mime-button-mother-dispatcher @@ -2517,7 +2518,7 @@ If given a prefix, show the hidden text instead." ;;; (defcustom gnus-article-edit-mode-hook nil - "*Hook run in article edit mode buffers." + "Hook run in article edit mode buffers." :group 'gnus-article-various :type 'hook) @@ -2667,7 +2668,7 @@ groups." ;;; Internal Variables: (defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)" - "*Regular expression that matches URLs." + "Regular expression that matches URLs." :group 'gnus-article-buttons :type 'regexp) -- 1.7.10.4