*** pub/qgnus/lisp/earcon.el Sat Feb 14 19:27:24 1998 --- qgnus/lisp/earcon.el Sun Feb 22 04:18:56 1998 *************** *** 45,51 **** :group 'earcon) (defcustom earcon-suffix "**" ! "*String denoting the end of an earcon." :type 'string :group 'earcon) --- 45,51 ---- :group 'earcon) (defcustom earcon-suffix "**" ! "String denoting the end of an earcon." :type 'string :group 'earcon) *************** *** 71,77 **** (integer :tag "Match") (string :tag "Sound"))) :group 'earcon) - (defvar earcon-button-marker-list nil) (make-variable-buffer-local 'earcon-button-marker-list) --- 71,76 ---- *** pub/qgnus/lisp/gnus-agent.el Sat Feb 21 00:48:36 1998 --- qgnus/lisp/gnus-agent.el Sun Feb 22 04:18:56 1998 *************** *** 30,51 **** (eval-when-compile (require 'cl)) (defcustom gnus-agent-directory (nnheader-concat gnus-directory "agent/") ! "*Where the Gnus agent will store its files." :group 'gnus-agent :type 'directory) (defcustom gnus-agent-plugged-hook nil ! "*Hook run when plugging into the network." :group 'gnus-agent :type 'hook) (defcustom gnus-agent-unplugged-hook nil ! "*Hook run when unplugging from the network." :group 'gnus-agent :type 'hook) (defcustom gnus-agent-handle-level gnus-level-subscribed ! "*Groups on levels higher than this variable will be ignored by the Agent." :group 'gnus-agent :type 'integer) --- 30,51 ---- (eval-when-compile (require 'cl)) (defcustom gnus-agent-directory (nnheader-concat gnus-directory "agent/") ! "Where the Gnus agent will store its files." :group 'gnus-agent :type 'directory) (defcustom gnus-agent-plugged-hook nil ! "Hook run when plugging into the network." :group 'gnus-agent :type 'hook) (defcustom gnus-agent-unplugged-hook nil ! "Hook run when unplugging from the network." :group 'gnus-agent :type 'hook) (defcustom gnus-agent-handle-level gnus-level-subscribed ! "Groups on levels higher than this variable will be ignored by the Agent." :group 'gnus-agent :type 'integer) *** pub/qgnus/lisp/gnus-art.el Sat Feb 21 00:48:38 1998 --- qgnus/lisp/gnus-art.el Sun Feb 22 04:18:58 1998 *************** *** 104,110 **** :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:" "*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." --- 104,110 ---- :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:" "*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." *************** *** 127,133 **** :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. 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) --- 127,133 ---- :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. 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) *************** *** 140,146 **** :group 'gnus-article-hiding) (defcustom gnus-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." --- 140,146 ---- :group 'gnus-article-hiding) (defcustom gnus-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." *************** *** 148,154 **** :group 'gnus-article-signature) (defcustom gnus-signature-limit nil ! "*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 --- 148,154 ---- :group 'gnus-article-signature) (defcustom gnus-signature-limit nil ! "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 *************** *** 162,173 **** :group 'gnus-article-signature) (defcustom gnus-hidden-properties '(invisible t intangible t) ! "*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 -" "*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." --- 162,173 ---- :group 'gnus-article-signature) (defcustom gnus-hidden-properties '(invisible t intangible t) ! "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 -" "*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." *************** *** 175,181 **** :group 'gnus-article-washing) (defcustom gnus-article-x-face-too-ugly nil ! "*Regexp matching posters whose face shouldn't be shown automatically." :type '(choice regexp (const nil)) :group 'gnus-article-washing) --- 175,181 ---- :group 'gnus-article-washing) (defcustom gnus-article-x-face-too-ugly nil ! "Regexp matching posters whose face shouldn't be shown automatically." :type '(choice regexp (const nil)) :group 'gnus-article-washing) *************** *** 246,252 **** :group 'gnus-article-emphasis) (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z" ! "*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 --- 246,252 ---- :group 'gnus-article-emphasis) (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z" ! "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 *************** *** 280,286 **** (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. 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." --- 280,286 ---- (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. 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." *************** *** 288,294 **** :type 'regexp) (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail ! "*A function to save articles in your favourite format. The function must be interactively callable (in other words, it must be an Emacs command). --- 288,294 ---- :type 'regexp) (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail ! "A function to save articles in your favourite format. The function must be interactively callable (in other words, it must be an Emacs command). *************** *** 309,333 **** (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. 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. 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. 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. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." :group 'gnus-article-saving --- 309,333 ---- (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. 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. 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. 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. The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE." :group 'gnus-article-saving *************** *** 366,372 **** :type 'boolean) (defcustom gnus-show-mime-method 'metamail-buffer ! "*Function to process a MIME message. The function is called from the article buffer." :group 'gnus-article-mime :type 'function) --- 366,372 ---- :type 'boolean) (defcustom gnus-show-mime-method 'metamail-buffer ! "Function to process a MIME message. The function is called from the article buffer." :group 'gnus-article-mime :type 'function) *************** *** 412,418 **** :group 'gnus-article-various) (defcustom gnus-article-button-face 'bold ! "*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." --- 412,418 ---- :group 'gnus-article-various) (defcustom gnus-article-button-face 'bold ! "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." *************** *** 420,426 **** :group 'gnus-article-buttons) (defcustom gnus-article-mouse-face 'highlight ! "*Face used for mouse highlighting in the article buffer. Article buttons will be displayed in this face when the cursor is above them." --- 420,426 ---- :group 'gnus-article-buttons) (defcustom gnus-article-mouse-face 'highlight ! "Face used for mouse highlighting in the article buffer. Article buttons will be displayed in this face when the cursor is above them." *************** *** 428,434 **** :group 'gnus-article-buttons) (defcustom gnus-signature-face 'gnus-signature-face ! "*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 --- 428,434 ---- :group 'gnus-article-buttons) (defcustom gnus-signature-face 'gnus-signature-face ! "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 *************** *** 2552,2558 **** ;;; (defcustom gnus-article-edit-mode-hook nil ! "*Hook run in article edit mode buffers." :group 'gnus-article-various :type 'hook) --- 2552,2558 ---- ;;; (defcustom gnus-article-edit-mode-hook nil ! "Hook run in article edit mode buffers." :group 'gnus-article-various :type 'hook) *************** *** 2702,2708 **** ;;; 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." :group 'gnus-article-buttons :type 'regexp) --- 2702,2708 ---- ;;; 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." :group 'gnus-article-buttons :type 'regexp) *** pub/qgnus/lisp/gnus-async.el Sat Feb 14 19:27:27 1998 --- qgnus/lisp/gnus-async.el Sun Feb 22 04:18:58 1998 *************** *** 51,57 **** (integer :tag "some" 0))) (defcustom gnus-prefetched-article-deletion-strategy '(read exit) ! "*List of symbols that say when to remove articles from the prefetch buffer. Possible values in this list are `read', which means that articles are removed as they are read, and `exit', which means that all articles belonging to a group are removed on exit --- 51,57 ---- (integer :tag "some" 0))) (defcustom gnus-prefetched-article-deletion-strategy '(read exit) ! "List of symbols that say when to remove articles from the prefetch buffer. Possible values in this list are `read', which means that articles are removed as they are read, and `exit', which means that all articles belonging to a group are removed on exit *************** *** 65,71 **** :type 'boolean) (defcustom gnus-async-prefetch-article-p 'gnus-async-unread-p ! "*Function called to say whether an article should be prefetched or not. The function is called with one parameter -- the article data. It should return non-nil if the article is to be prefetched." :group 'gnus-asynchronous --- 65,71 ---- :type 'boolean) (defcustom gnus-async-prefetch-article-p 'gnus-async-unread-p ! "Function called to say whether an article should be prefetched or not. The function is called with one parameter -- the article data. It should return non-nil if the article is to be prefetched." :group 'gnus-asynchronous *** pub/qgnus/lisp/gnus-cache.el Sat Feb 14 19:27:28 1998 --- qgnus/lisp/gnus-cache.el Sun Feb 22 04:18:59 1998 *************** *** 51,62 **** :type 'file) (defcustom gnus-cache-enter-articles '(ticked dormant) ! "*Classes of articles to enter into the cache." :group 'gnus-cache :type '(set (const ticked) (const dormant) (const unread) (const read))) (defcustom gnus-cache-remove-articles '(read) ! "*Classes of articles to remove from the cache." :group 'gnus-cache :type '(set (const ticked) (const dormant) (const unread) (const read))) --- 51,62 ---- :type 'file) (defcustom gnus-cache-enter-articles '(ticked dormant) ! "Classes of articles to enter into the cache." :group 'gnus-cache :type '(set (const ticked) (const dormant) (const unread) (const read))) (defcustom gnus-cache-remove-articles '(read) ! "Classes of articles to remove from the cache." :group 'gnus-cache :type '(set (const ticked) (const dormant) (const unread) (const read))) *** pub/qgnus/lisp/gnus-cite.el Sat Feb 21 00:48:38 1998 --- qgnus/lisp/gnus-cite.el Sun Feb 22 04:18:59 1998 *************** *** 47,83 **** :type 'string) (defcustom gnus-cite-always-check nil ! "*Check article always for citations. Set it t to check all articles." :group 'gnus-cite :type '(choice (const :tag "no" nil) (const :tag "yes" t))) (defcustom gnus-cited-text-button-line-format "%(%{[...]%}%)\n" ! "*Format of cited text buttons." :group 'gnus-cite :type 'string) (defcustom gnus-cited-lines-visible nil ! "*The number of lines of hidden cited text to remain visible." :group 'gnus-cite :type '(choice (const :tag "none" nil) integer)) (defcustom gnus-cite-parse-max-size 25000 ! "*Maximum article size (in bytes) where parsing citations is allowed. Set it to nil to parse all articles." :group 'gnus-cite :type '(choice (const :tag "all" nil) integer)) (defcustom gnus-cite-prefix-regexp ! "^[]>|:}+ ]*[]>|:}+]\\(.*>\\)?\\|^.*>" "*Regexp matching the longest possible citation prefix on a line." :group 'gnus-cite :type 'regexp) (defcustom gnus-cite-max-prefix 20 ! "*Maximum possible length for a citation prefix." :group 'gnus-cite :type 'integer) --- 47,83 ---- :type 'string) (defcustom gnus-cite-always-check nil ! "Check article always for citations. Set it t to check all articles." :group 'gnus-cite :type '(choice (const :tag "no" nil) (const :tag "yes" t))) (defcustom gnus-cited-text-button-line-format "%(%{[...]%}%)\n" ! "Format of cited text buttons." :group 'gnus-cite :type 'string) (defcustom gnus-cited-lines-visible nil ! "The number of lines of hidden cited text to remain visible." :group 'gnus-cite :type '(choice (const :tag "none" nil) integer)) (defcustom gnus-cite-parse-max-size 25000 ! "Maximum article size (in bytes) where parsing citations is allowed. Set it to nil to parse all articles." :group 'gnus-cite :type '(choice (const :tag "all" nil) integer)) (defcustom gnus-cite-prefix-regexp ! "^[]>|:}+ ]*[]>|:}+]\\(.*>\\)?\\|^.*>" "*Regexp matching the longest possible citation prefix on a line." :group 'gnus-cite :type 'regexp) (defcustom gnus-cite-max-prefix 20 ! "Maximum possible length for a citation prefix." :group 'gnus-cite :type 'integer) *************** *** 90,107 **** :type 'regexp) (defcustom gnus-supercite-secondary-regexp "^.*\"\\([^\"\n]+\\)\" +==" ! "*Regexp matching mangled Supercite attribution lines. The first regexp group should match the Supercite attribution." :group 'gnus-cite :type 'regexp) (defcustom gnus-cite-minimum-match-count 2 ! "*Minimum number of identical prefixes before we believe it's a citation." :group 'gnus-cite :type 'integer) (defcustom gnus-cite-attribution-prefix ! "in article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\)," "*Regexp matching the beginning of an attribution line." :group 'gnus-cite :type 'regexp) --- 90,107 ---- :type 'regexp) (defcustom gnus-supercite-secondary-regexp "^.*\"\\([^\"\n]+\\)\" +==" ! "Regexp matching mangled Supercite attribution lines. The first regexp group should match the Supercite attribution." :group 'gnus-cite :type 'regexp) (defcustom gnus-cite-minimum-match-count 2 ! "Minimum number of identical prefixes before we believe it's a citation." :group 'gnus-cite :type 'integer) (defcustom gnus-cite-attribution-prefix ! "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\)," "*Regexp matching the beginning of an attribution line." :group 'gnus-cite :type 'regexp) *************** *** 118,124 **** "Face used for attribution lines.") (defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face ! "*Face used for attribution lines. It is merged with the face for the cited text belonging to the attribution." :group 'gnus-cite :type 'face) --- 118,124 ---- "Face used for attribution lines.") (defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face ! "Face used for attribution lines. It is merged with the face for the cited text belonging to the attribution." :group 'gnus-cite :type 'face) *************** *** 246,257 **** :type '(repeat face)) (defcustom gnus-cite-hide-percentage 50 ! "*Only hide excess citation if above this percentage of the body." :group 'gnus-cite :type 'number) (defcustom gnus-cite-hide-absolute 10 ! "*Only hide excess citation if above this number of lines in the body." :group 'gnus-cite :type 'integer) --- 246,257 ---- :type '(repeat face)) (defcustom gnus-cite-hide-percentage 50 ! "Only hide excess citation if above this percentage of the body." :group 'gnus-cite :type 'number) (defcustom gnus-cite-hide-absolute 10 ! "Only hide excess citation if above this number of lines in the body." :group 'gnus-cite :type 'integer) *************** *** 495,501 **** (gnus-article-add-button (point) (progn (eval gnus-cited-text-button-line-format-spec) (point)) ! `gnus-article-toggle-cited-text (cons beg end)) (point)) 'article-type 'annotation) (set-marker beg (point))))))))) --- 495,505 ---- (gnus-article-add-button (point) (progn (eval gnus-cited-text-button-line-format-spec) (point)) ! `gnus-article-toggle-cited-text ! ;; We use markers for the end-points to facilitate later ! ;; wrapping and mangling of text. ! (cons (set-marker (make-marker) beg) ! (set-marker (make-marker) end))) (point)) 'article-type 'annotation) (set-marker beg (point))))))))) *** pub/qgnus/lisp/gnus-demon.el Sat Feb 14 19:27:29 1998 --- qgnus/lisp/gnus-demon.el Sun Feb 22 04:18:59 1998 *************** *** 41,47 **** :group 'gnus) (defcustom gnus-demon-handlers nil ! "*Alist of daemonic handlers to be run at intervals. Each handler is a list on the form \(FUNCTION TIME IDLE) --- 41,47 ---- :group 'gnus) (defcustom gnus-demon-handlers nil ! "Alist of daemonic handlers to be run at intervals. Each handler is a list on the form \(FUNCTION TIME IDLE) *** pub/qgnus/lisp/gnus-eform.el Sat Feb 14 19:27:30 1998 --- qgnus/lisp/gnus-eform.el Sun Feb 22 04:19:00 1998 *************** *** 37,48 **** :group 'gnus) (defcustom gnus-edit-form-mode-hook nil ! "*Hook run in `gnus-edit-form-mode' buffers." :group 'gnus-edit-form :type 'hook) (defcustom gnus-edit-form-menu-hook nil ! "*Hook run when creating menus in `gnus-edit-form-mode' buffers." :group 'gnus-edit-form :type 'hook) --- 37,48 ---- :group 'gnus) (defcustom gnus-edit-form-mode-hook nil ! "Hook run in `gnus-edit-form-mode' buffers." :group 'gnus-edit-form :type 'hook) (defcustom gnus-edit-form-menu-hook nil ! "Hook run when creating menus in `gnus-edit-form-mode' buffers." :group 'gnus-edit-form :type 'hook) *** pub/qgnus/lisp/gnus-group.el Sat Feb 21 00:48:41 1998 --- qgnus/lisp/gnus-group.el Sun Feb 22 04:19:02 1998 *************** *** 37,49 **** (require 'gnus-undo) (defcustom gnus-group-archive-directory ! "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/" "*The address of the (ding) archives." :group 'gnus-group-foreign :type 'directory) (defcustom gnus-group-recent-archive-directory ! "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/" "*The address of the most recent (ding) articles." :group 'gnus-group-foreign :type 'directory) --- 37,49 ---- (require 'gnus-undo) (defcustom gnus-group-archive-directory ! "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/" "*The address of the (ding) archives." :group 'gnus-group-foreign :type 'directory) (defcustom gnus-group-recent-archive-directory ! "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/" "*The address of the most recent (ding) articles." :group 'gnus-group-foreign :type 'directory) *************** *** 196,219 **** :type 'string) (defcustom gnus-group-mode-hook nil ! "*Hook for Gnus group mode." :group 'gnus-group-various :options '(gnus-topic-mode) :type 'hook) (defcustom gnus-group-menu-hook nil ! "*Hook run after the creation of the group mode menu." :group 'gnus-group-various :type 'hook) (defcustom gnus-group-catchup-group-hook nil ! "*Hook run when catching up a group from the group buffer." :group 'gnus-group-various :link '(custom-manual "(gnus)Group Data") :type 'hook) (defcustom gnus-group-update-group-hook nil ! "*Hook called when updating group lines." :group 'gnus-group-visual :type 'hook) --- 196,219 ---- :type 'string) (defcustom gnus-group-mode-hook nil ! "Hook for Gnus group mode." :group 'gnus-group-various :options '(gnus-topic-mode) :type 'hook) (defcustom gnus-group-menu-hook nil ! "Hook run after the creation of the group mode menu." :group 'gnus-group-various :type 'hook) (defcustom gnus-group-catchup-group-hook nil ! "Hook run when catching up a group from the group buffer." :group 'gnus-group-various :link '(custom-manual "(gnus)Group Data") :type 'hook) (defcustom gnus-group-update-group-hook nil ! "Hook called when updating group lines." :group 'gnus-group-visual :type 'hook) *************** *** 230,257 **** :type 'function) (defcustom gnus-group-prepare-hook nil ! "*Hook called after the group buffer has been generated. If you want to modify the group buffer, you can use this hook." :group 'gnus-group-listing :type 'hook) (defcustom gnus-suspend-gnus-hook nil ! "*Hook called when suspending (not exiting) Gnus." :group 'gnus-exit :type 'hook) (defcustom gnus-exit-gnus-hook nil ! "*Hook called when exiting Gnus." :group 'gnus-exit :type 'hook) (defcustom gnus-after-exiting-gnus-hook nil ! "*Hook called after exiting Gnus." :group 'gnus-exit :type 'hook) (defcustom gnus-group-update-hook '(gnus-group-highlight-line) ! "*Hook called when a group line is changed. The hook will not be called if `gnus-visual' is nil. The default function `gnus-group-highlight-line' will --- 230,257 ---- :type 'function) (defcustom gnus-group-prepare-hook nil ! "Hook called after the group buffer has been generated. If you want to modify the group buffer, you can use this hook." :group 'gnus-group-listing :type 'hook) (defcustom gnus-suspend-gnus-hook nil ! "Hook called when suspending (not exiting) Gnus." :group 'gnus-exit :type 'hook) (defcustom gnus-exit-gnus-hook nil ! "Hook called when exiting Gnus." :group 'gnus-exit :type 'hook) (defcustom gnus-after-exiting-gnus-hook nil ! "Hook called after exiting Gnus." :group 'gnus-exit :type 'hook) (defcustom gnus-group-update-hook '(gnus-group-highlight-line) ! "Hook called when a group line is changed. The hook will not be called if `gnus-visual' is nil. The default function `gnus-group-highlight-line' will *************** *** 261,267 **** :type 'hook) (defcustom gnus-useful-groups ! `(("(ding) mailing list mirrored at sunsite.auc.dk" "emacs.ding" (nntp "sunsite.auc.dk" (nntp-address "sunsite.auc.dk"))) --- 261,267 ---- :type 'hook) (defcustom gnus-useful-groups ! '(("(ding) mailing list mirrored at sunsite.auc.dk" "emacs.ding" (nntp "sunsite.auc.dk" (nntp-address "sunsite.auc.dk"))) *************** *** 343,349 **** :type '(repeat (cons (sexp :tag "Form") face))) (defcustom gnus-new-mail-mark ?% ! "*Mark used for groups with new mail." :group 'gnus-group-visual :type 'character) --- 343,349 ---- :type '(repeat (cons (sexp :tag "Form") face))) (defcustom gnus-new-mail-mark ?% ! "Mark used for groups with new mail." :group 'gnus-group-visual :type 'character) *** pub/qgnus/lisp/gnus-int.el Sat Feb 14 19:27:33 1998 --- qgnus/lisp/gnus-int.el Sun Feb 22 04:19:02 1998 *************** *** 30,36 **** (require 'gnus) (defcustom gnus-open-server-hook nil ! "*Hook called just before opening connection to the news server." :group 'gnus-start :type 'hook) --- 30,36 ---- (require 'gnus) (defcustom gnus-open-server-hook nil ! "Hook called just before opening connection to the news server." :group 'gnus-start :type 'hook) *** pub/qgnus/lisp/gnus-kill.el Sat Feb 14 19:27:33 1998 --- qgnus/lisp/gnus-kill.el Sun Feb 22 04:19:02 1998 *************** *** 33,39 **** (require 'gnus-range) (defcustom gnus-kill-file-mode-hook nil ! "*Hook for Gnus kill file mode." :group 'gnus-score-kill :type 'hook) --- 33,39 ---- (require 'gnus-range) (defcustom gnus-kill-file-mode-hook nil ! "Hook for Gnus kill file mode." :group 'gnus-score-kill :type 'hook) *************** *** 49,55 **** :type 'boolean) (defcustom gnus-winconf-kill-file nil ! "*What does this do, Lars?" :group 'gnus-score-kill :type 'sexp) --- 49,55 ---- :type 'boolean) (defcustom gnus-winconf-kill-file nil ! "What does this do, Lars?" :group 'gnus-score-kill :type 'sexp) *** pub/qgnus/lisp/gnus-picon.el Sat Feb 21 00:48:42 1998 --- qgnus/lisp/gnus-picon.el Sun Feb 22 04:19:03 1998 *************** *** 43,55 **** :group 'gnus-visual) (defcustom gnus-picons-display-where 'picons ! "*Where to display the group and article icons. Legal values are `article' and `picons'." :type '(choice symbol string) :group 'picons) (defcustom gnus-picons-has-modeline-p t ! "*Wether the picons window should have a modeline. This is only useful if `gnus-picons-display-where' is `picons'." :type 'boolean :group 'picons) --- 43,55 ---- :group 'gnus-visual) (defcustom gnus-picons-display-where 'picons ! "Where to display the group and article icons. Legal values are `article' and `picons'." :type '(choice symbol string) :group 'picons) (defcustom gnus-picons-has-modeline-p t ! "*Whether the picons window should have a modeline. This is only useful if `gnus-picons-display-where' is `picons'." :type 'boolean :group 'picons) *************** *** 90,96 **** :group 'picons) (defcustom gnus-picons-x-face-file-name ! (format "/tmp/picon-xface.%s.xbm" (user-login-name)) "*The name of the file in which to store the converted X-face header." :type 'string :group 'picons) --- 90,96 ---- :group 'picons) (defcustom gnus-picons-x-face-file-name ! '(format "/tmp/picon-xface.%s.xbm" (user-login-name)) "*The name of the file in which to store the converted X-face header." :type 'string :group 'picons) *** pub/qgnus/lisp/gnus-salt.el Sun Feb 15 19:49:48 1998 --- qgnus/lisp/gnus-salt.el Sun Feb 22 04:19:03 1998 *************** *** 43,49 **** :group 'gnus-summary-pick) (defcustom gnus-pick-mode-hook nil ! "*Hook run in summary pick mode buffers." :type 'hook :group 'gnus-summary-pick) --- 43,49 ---- :group 'gnus-summary-pick) (defcustom gnus-pick-mode-hook nil ! "Hook run in summary pick mode buffers." :type 'hook :group 'gnus-summary-pick) *************** *** 53,64 **** :group 'gnus-summary-pick) (defcustom gnus-pick-elegant-flow t ! "*If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked." :type 'boolean :group 'gnus-summary-pick) (defcustom gnus-summary-pick-line-format ! "%-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in pick buffers. It accepts the same format specs that `gnus-summary-line-format' does." :type 'string --- 53,64 ---- :group 'gnus-summary-pick) (defcustom gnus-pick-elegant-flow t ! "If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked." :type 'boolean :group 'gnus-summary-pick) (defcustom gnus-summary-pick-line-format ! "-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in pick buffers. It accepts the same format specs that `gnus-summary-line-format' does." :type 'string *************** *** 355,366 **** ;;; (defcustom gnus-tree-line-format "%(%[%3,3n%]%)" ! "*Format of tree elements." :type 'string :group 'gnus-summary-tree) (defcustom gnus-tree-minimize-window t ! "*If non-nil, minimize the tree buffer window. If a number, never let the tree buffer grow taller than that number of lines." :type 'boolean --- 355,366 ---- ;;; (defcustom gnus-tree-line-format "%(%[%3,3n%]%)" ! "Format of tree elements." :type 'string :group 'gnus-summary-tree) (defcustom gnus-tree-minimize-window t ! "If non-nil, minimize the tree buffer window. If a number, never let the tree buffer grow taller than that number of lines." :type 'boolean *** pub/qgnus/lisp/gnus-score.el Sun Feb 15 19:49:50 1998 --- qgnus/lisp/gnus-score.el Sun Feb 22 04:19:05 1998 *************** *** 34,40 **** (require 'message) (defcustom gnus-global-score-files nil ! "*List of global score files and directories. Set this variable if you want to use people's score files. One entry for each score file or each score file directory. Gnus will decide by itself what score files are applicable to which group. --- 34,40 ---- (require 'message) (defcustom gnus-global-score-files nil ! "List of global score files and directories. Set this variable if you want to use people's score files. One entry for each score file or each score file directory. Gnus will decide by itself what score files are applicable to which group. *************** *** 50,56 **** :type '(repeat file)) (defcustom gnus-score-file-single-match-alist nil ! "*Alist mapping regexps to lists of score files. Each element of this alist should be of the form (\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... ) --- 50,56 ---- :type '(repeat file)) (defcustom gnus-score-file-single-match-alist nil ! "Alist mapping regexps to lists of score files. Each element of this alist should be of the form (\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... ) *************** *** 65,71 **** :type '(repeat (cons regexp (repeat file)))) (defcustom gnus-score-file-multiple-match-alist nil ! "*Alist mapping regexps to lists of score files. Each element of this alist should be of the form (\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... ) --- 65,71 ---- :type '(repeat (cons regexp (repeat file)))) (defcustom gnus-score-file-multiple-match-alist nil ! "Alist mapping regexps to lists of score files. Each element of this alist should be of the form (\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... ) *************** *** 81,98 **** :type '(repeat (cons regexp (repeat file)))) (defcustom gnus-score-file-suffix "SCORE" ! "*Suffix of the score files." :group 'gnus-score-files :type 'string) (defcustom gnus-adaptive-file-suffix "ADAPT" ! "*Suffix of the adaptive score files." :group 'gnus-score-files :group 'gnus-score-adapt :type 'string) (defcustom gnus-score-find-score-files-function 'gnus-score-find-bnews ! "*Function used to find score files. The function will be called with the group name as the argument, and should return a list of score files to apply to that group. The score files do not actually have to exist. --- 81,98 ---- :type '(repeat (cons regexp (repeat file)))) (defcustom gnus-score-file-suffix "SCORE" ! "Suffix of the score files." :group 'gnus-score-files :type 'string) (defcustom gnus-adaptive-file-suffix "ADAPT" ! "Suffix of the adaptive score files." :group 'gnus-score-files :group 'gnus-score-adapt :type 'string) (defcustom gnus-score-find-score-files-function 'gnus-score-find-bnews ! "Function used to find score files. The function will be called with the group name as the argument, and should return a list of score files to apply to that group. The score files do not actually have to exist. *************** *** 107,113 **** This variable can also be a list of functions to be called. Each function should either return a list of score files, or a list of ! score alists." :group 'gnus-score-files :type '(radio (function-item gnus-score-find-single) (function-item gnus-score-find-hierarchical) --- 107,117 ---- This variable can also be a list of functions to be called. Each function should either return a list of score files, or a list of ! score alists. ! ! If functions other than these pre-defined functions are used, ! the `a' symbolic prefix to the score commands will always use ! \"all.SCORE\"." :group 'gnus-score-files :type '(radio (function-item gnus-score-find-single) (function-item gnus-score-find-hierarchical) *************** *** 162,168 **** :type 'number) (defcustom gnus-home-score-file nil ! "*Variable to control where interactive score entries are to go. It can be: * A string --- 166,172 ---- :type 'number) (defcustom gnus-home-score-file nil ! "Variable to control where interactive score entries are to go. It can be: * A string *************** *** 199,205 **** (function :value fun))) (defcustom gnus-home-adapt-file nil ! "*Variable to control where new adaptive score entries are to go. This variable allows the same syntax as `gnus-home-score-file'." :group 'gnus-score-adapt :group 'gnus-score-files --- 203,209 ---- (function :value fun))) (defcustom gnus-home-adapt-file nil ! "Variable to control where new adaptive score entries are to go. This variable allows the same syntax as `gnus-home-score-file'." :group 'gnus-score-adapt :group 'gnus-score-files *************** *** 226,232 **** (integer :tag "Score")))))) (defcustom gnus-ignored-adaptive-words nil ! "*List of words to be ignored when doing adaptive word scoring." :group 'gnus-score-adapt :type '(repeat string)) --- 230,236 ---- (integer :tag "Score")))))) (defcustom gnus-ignored-adaptive-words nil ! "List of words to be ignored when doing adaptive word scoring." :group 'gnus-score-adapt :type '(repeat string)) *************** *** 260,266 **** (integer :tag "Score")))) (defcustom gnus-adaptive-word-minimum nil ! "*If a number, this is the minimum score value that can be assigned to a word." :group 'gnus-score-adapt :type '(choice (const nil) integer)) --- 264,270 ---- (integer :tag "Score")))) (defcustom gnus-adaptive-word-minimum nil ! "If a number, this is the minimum score value that can be assigned to a word." :group 'gnus-score-adapt :type '(choice (const nil) integer)) *************** *** 281,293 **** :type '(choice (const nil) integer)) (defcustom gnus-score-uncacheable-files "ADAPT$" ! "*All score files that match this regexp will not be cached." :group 'gnus-score-adapt :group 'gnus-score-files :type 'regexp) (defcustom gnus-score-default-header nil ! "*Default header when entering new scores. Should be one of the following symbols. --- 285,297 ---- :type '(choice (const nil) integer)) (defcustom gnus-score-uncacheable-files "ADAPT$" ! "All score files that match this regexp will not be cached." :group 'gnus-score-adapt :group 'gnus-score-files :type 'regexp) (defcustom gnus-score-default-header nil ! "Default header when entering new scores. Should be one of the following symbols. *************** *** 317,323 **** (const :tag "ask" nil))) (defcustom gnus-score-default-type nil ! "*Default match type when entering new scores. Should be one of the following symbols. --- 321,327 ---- (const :tag "ask" nil))) (defcustom gnus-score-default-type nil ! "Default match type when entering new scores. Should be one of the following symbols. *************** *** 347,358 **** (const :tag "ask" nil))) (defcustom gnus-score-default-fold nil ! "*Use case folding for new score file entries iff not nil." :group 'gnus-score-default :type 'boolean) (defcustom gnus-score-default-duration nil ! "*Default duration of effect when entering new scores. Should be one of the following symbols. --- 351,362 ---- (const :tag "ask" nil))) (defcustom gnus-score-default-fold nil ! "Use case folding for new score file entries iff not nil." :group 'gnus-score-default :type 'boolean) (defcustom gnus-score-default-duration nil ! "Default duration of effect when entering new scores. Should be one of the following symbols. *************** *** 368,379 **** (const :tag "ask" nil))) (defcustom gnus-score-after-write-file-function nil ! "*Function called with the name of the score file just written to disk." :group 'gnus-score-files :type 'function) (defcustom gnus-score-thread-simplify nil ! "*If non-nil, subjects will simplified as in threading." :group 'gnus-score-various :type 'boolean) --- 372,383 ---- (const :tag "ask" nil))) (defcustom gnus-score-after-write-file-function nil ! "Function called with the name of the score file just written to disk." :group 'gnus-score-files :type 'function) (defcustom gnus-score-thread-simplify nil ! "If non-nil, subjects will simplified as in threading." :group 'gnus-score-various :type 'boolean) *************** *** 818,824 **** (or (nth 1 new) gnus-score-interactive-default-score))) ;; Nope, we have to add a new elem. ! (gnus-score-set header (if old (cons new old) (list new)))) (gnus-score-set 'touched '(t)))) ;; Score the current buffer. --- 822,828 ---- (or (nth 1 new) gnus-score-interactive-default-score))) ;; Nope, we have to add a new elem. ! (gnus-score-set header (if old (cons new old) (list new)) nil t)) (gnus-score-set 'touched '(t)))) ;; Score the current buffer. *************** *** 968,974 **** "references" id 's score (current-time-string)))))))) ! (defun gnus-score-set (symbol value &optional alist) ;; Set SYMBOL to VALUE in ALIST. (let* ((alist (or alist --- 972,978 ---- "references" id 's score (current-time-string)))))))) ! (defun gnus-score-set (symbol value &optional alist warn) ;; Set SYMBOL to VALUE in ALIST. (let* ((alist (or alist *************** *** 977,983 **** (entry (assoc symbol alist))) (cond ((gnus-score-get 'read-only alist) ;; This is a read-only score file, so we do nothing. ! ) (entry (setcdr entry value)) ((null alist) --- 981,988 ---- (entry (assoc symbol alist))) (cond ((gnus-score-get 'read-only alist) ;; This is a read-only score file, so we do nothing. ! (when warn ! (gnus-message 4 "Note: read-only score file; entry discarded"))) (entry (setcdr entry value)) ((null alist) *************** *** 1143,1149 **** (expand-file-name sfile gnus-kill-files-directory))) exclude-files)) gnus-scores-exclude-files)) ! (unless local (save-excursion (set-buffer gnus-summary-buffer) (while local --- 1148,1154 ---- (expand-file-name sfile gnus-kill-files-directory))) exclude-files)) gnus-scores-exclude-files)) ! (when local (save-excursion (set-buffer gnus-summary-buffer) (while local *** pub/qgnus/lisp/gnus-start.el Sat Feb 21 00:48:45 1998 --- qgnus/lisp/gnus-start.el Sun Feb 22 04:19:07 1998 *************** *** 35,47 **** (eval-when-compile (require 'cl)) (defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc") ! "*Your `.newsrc' file. `.newsrc-SERVER' will be used instead if that exists." :group 'gnus-start :type 'file) (defcustom gnus-init-file (nnheader-concat gnus-home-directory ".gnus") ! "*Your Gnus Emacs-Lisp startup file name. If a file with the `.el' or `.elc' suffixes exists, it will be read instead." :group 'gnus-start :type 'file) --- 35,47 ---- (eval-when-compile (require 'cl)) (defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc") ! "Your `.newsrc' file. `.newsrc-SERVER' will be used instead if that exists." :group 'gnus-start :type 'file) (defcustom gnus-init-file (nnheader-concat gnus-home-directory ".gnus") ! "Your Gnus Emacs-Lisp startup file name. If a file with the `.el' or `.elc' suffixes exists, it will be read instead." :group 'gnus-start :type 'file) *************** *** 58,64 **** :type '(choice file (const nil))) (defcustom gnus-default-subscribed-newsgroups nil ! "*List of newsgroups to subscribe, when a user runs Gnus the first time. The value should be a list of strings. If it is t, Gnus will not do anything special the first time it is started; it'll just use the normal newsgroups subscription methods." --- 58,64 ---- :type '(choice file (const nil))) (defcustom gnus-default-subscribed-newsgroups nil ! "List of newsgroups to subscribe, when a user runs Gnus the first time. The value should be a list of strings. If it is t, Gnus will not do anything special the first time it is started; it'll just use the normal newsgroups subscription methods." *************** *** 289,295 **** :type 'boolean) (defcustom gnus-auto-subscribed-groups ! "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl" "*All new groups that match this regexp will be subscribed automatically. Note that this variable only deals with new groups. It has no effect whatsoever on old groups. --- 289,295 ---- :type 'boolean) (defcustom gnus-auto-subscribed-groups ! "nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl" "*All new groups that match this regexp will be subscribed automatically. Note that this variable only deals with new groups. It has no effect whatsoever on old groups. *************** *** 328,361 **** :type 'boolean) (defcustom gnus-check-bogus-groups-hook nil ! "*A hook run after removing bogus groups." :group 'gnus-start-server :type 'hook) (defcustom gnus-startup-hook nil ! "*A hook called at startup. This hook is called after Gnus is connected to the NNTP server." :group 'gnus-start :type 'hook) (defcustom gnus-before-startup-hook nil ! "*A hook called at before startup. This hook is called as the first thing when Gnus is started." :group 'gnus-start :type 'hook) (defcustom gnus-started-hook nil ! "*A hook called as the last thing after startup." :group 'gnus-start :type 'hook) (defcustom gnus-setup-news-hook nil ! "*A hook after reading the .newsrc file, but before generating the buffer." :group 'gnus-start :type 'hook) (defcustom gnus-get-new-news-hook nil ! "*A hook run just before Gnus checks for new news." :group 'gnus-group-new :type 'hook) --- 328,361 ---- :type 'boolean) (defcustom gnus-check-bogus-groups-hook nil ! "A hook run after removing bogus groups." :group 'gnus-start-server :type 'hook) (defcustom gnus-startup-hook nil ! "A hook called at startup. This hook is called after Gnus is connected to the NNTP server." :group 'gnus-start :type 'hook) (defcustom gnus-before-startup-hook nil ! "A hook called at before startup. This hook is called as the first thing when Gnus is started." :group 'gnus-start :type 'hook) (defcustom gnus-started-hook nil ! "A hook called as the last thing after startup." :group 'gnus-start :type 'hook) (defcustom gnus-setup-news-hook nil ! "A hook after reading the .newsrc file, but before generating the buffer." :group 'gnus-start :type 'hook) (defcustom gnus-get-new-news-hook nil ! "A hook run just before Gnus checks for new news." :group 'gnus-group-new :type 'hook) *************** *** 367,384 **** :type 'hook) (defcustom gnus-save-newsrc-hook nil ! "*A hook called before saving any of the newsrc files." :group 'gnus-newsrc :type 'hook) (defcustom gnus-save-quick-newsrc-hook nil ! "*A hook called just before saving the quick newsrc file. Can be used to turn version control on or off." :group 'gnus-newsrc :type 'hook) (defcustom gnus-save-standard-newsrc-hook nil ! "*A hook called just before saving the standard newsrc file. Can be used to turn version control on or off." :group 'gnus-newsrc :type 'hook) --- 367,384 ---- :type 'hook) (defcustom gnus-save-newsrc-hook nil ! "A hook called before saving any of the newsrc files." :group 'gnus-newsrc :type 'hook) (defcustom gnus-save-quick-newsrc-hook nil ! "A hook called just before saving the quick newsrc file. Can be used to turn version control on or off." :group 'gnus-newsrc :type 'hook) (defcustom gnus-save-standard-newsrc-hook nil ! "A hook called just before saving the standard newsrc file. Can be used to turn version control on or off." :group 'gnus-newsrc :type 'hook) *** pub/qgnus/lisp/gnus-sum.el Sat Feb 21 00:48:49 1998 --- qgnus/lisp/gnus-sum.el Sun Feb 22 04:19:12 1998 *************** *** 121,127 **** (sexp :menu-tag "on" t))) (defcustom gnus-simplify-subject-functions nil ! "*List of functions taking a string argument that simplify subjects. The functions are applied recursively." :group 'gnus-thread :type '(repeat (list function))) --- 121,127 ---- (sexp :menu-tag "on" t))) (defcustom gnus-simplify-subject-functions nil ! "List of functions taking a string argument that simplify subjects. The functions are applied recursively." :group 'gnus-thread :type '(repeat (list function))) *************** *** 489,495 **** :type 'boolean) (defcustom gnus-summary-dummy-line-format ! "* %(: :%) %S\n" "*The format specification for the dummy roots in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. --- 489,495 ---- :type 'boolean) (defcustom gnus-summary-dummy-line-format ! " %(: :%) %S\n" "*The format specification for the dummy roots in the summary buffer. It works along the same lines as a normal formatting string, with some simple extensions. *************** *** 572,585 **** :type 'function) (defcustom gnus-summary-expunge-below nil ! "*All articles that have a score less than this variable will be expunged. This variable is local to the summary buffers." :group 'gnus-score-default :type '(choice (const :tag "off" nil) integer)) (defcustom gnus-thread-expunge-below nil ! "*All threads that have a total score less than this variable will be expunged. See `gnus-thread-score-function' for en explanation of what a \"thread score\" is. --- 572,585 ---- :type 'function) (defcustom gnus-summary-expunge-below nil ! "All articles that have a score less than this variable will be expunged. This variable is local to the summary buffers." :group 'gnus-score-default :type '(choice (const :tag "off" nil) integer)) (defcustom gnus-thread-expunge-below nil ! "All threads that have a total score less than this variable will be expunged. See `gnus-thread-score-function' for en explanation of what a \"thread score\" is. *************** *** 657,668 **** :type 'hook) (defcustom gnus-structured-field-decoder 'identity ! "*Function to decode non-ASCII characters in structured field for summary." :group 'gnus-various :type 'function) (defcustom gnus-unstructured-field-decoder 'identity ! "*Function to decode non-ASCII characters in unstructured field for summary." :group 'gnus-various :type 'function) --- 657,668 ---- :type 'hook) (defcustom gnus-structured-field-decoder 'identity ! "Function to decode non-ASCII characters in structured field for summary." :group 'gnus-various :type 'function) (defcustom gnus-unstructured-field-decoder 'identity ! "Function to decode non-ASCII characters in unstructured field for summary." :group 'gnus-various :type 'function) *************** *** 706,712 **** :type 'hook) (defcustom gnus-summary-selected-face 'gnus-summary-selected-face ! "*Face used for highlighting the current article in the summary buffer." :group 'gnus-summary-visual :type 'face) --- 706,712 ---- :type 'hook) (defcustom gnus-summary-selected-face 'gnus-summary-selected-face ! "Face used for highlighting the current article in the summary buffer." :group 'gnus-summary-visual :type 'face) *************** *** 734,741 **** . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) ! ((memq mark (list gnus-unread-mark gnus-downloadable-mark ! gnus-undownloaded-mark)) . gnus-summary-normal-unread-face) ((> score default) . gnus-summary-high-read-face) --- 734,748 ---- . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) ! ((= mark gnus-unread-mark) ! . gnus-summary-normal-unread-face) ! ((and (> score default) (memq mark (list gnus-downloadable-mark ! gnus-undownloaded-mark))) ! . gnus-summary-high-unread-face) ! ((and (< score default) (memq mark (list gnus-downloadable-mark ! gnus-undownloaded-mark))) ! . gnus-summary-low-unread-face) ! ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark)) . gnus-summary-normal-unread-face) ((> score default) . gnus-summary-high-read-face) *************** *** 761,767 **** face))) (defcustom gnus-alter-header-function nil ! "*Function called to allow alteration of article header structures. The function is called with one parameter, the article header vector, which it may alter in any way.") --- 768,774 ---- face))) (defcustom gnus-alter-header-function nil ! "Function called to allow alteration of article header structures. The function is called with one parameter, the article header vector, which it may alter in any way.") *************** *** 4346,4356 **** (progn (goto-char p) (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)))) --- 4353,4363 ---- (progn (goto-char p) (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 1) ! (match-end 1)) ;; If there was no message-id, we just fake one ;; to make subsequent routines simpler. (nnheader-generate-fake-message-id)))) *************** *** 5072,5077 **** --- 5079,5085 ---- (interactive) (gnus-set-global-variables) (gnus-kill-save-kill-buffer) + (gnus-async-halt-prefetch) (let* ((group gnus-newsgroup-name) (quit-config (gnus-group-quit-config gnus-newsgroup-name)) (mode major-mode) *************** *** 5157,5162 **** --- 5165,5171 ---- (when (or no-questions gnus-expert-user (gnus-y-or-n-p "Discard changes to this group and exit? ")) + (gnus-async-halt-prefetch) ;; If we have several article buffers, we kill them at exit. (unless gnus-single-article-buffer (gnus-kill-buffer gnus-article-buffer) *************** *** 7097,7103 **** (gnus-summary-move-article n nil nil 'crosspost)) (defcustom gnus-summary-respool-default-method nil ! "*Default method for respooling an article. If nil, use to the current newsgroup method." :type `(choice (gnus-select-method :value (nnml "")) (const nil)) --- 7106,7112 ---- (gnus-summary-move-article n nil nil 'crosspost)) (defcustom gnus-summary-respool-default-method nil ! "Default method for respooling an article. If nil, use to the current newsgroup method." :type `(choice (gnus-select-method :value (nnml "")) (const nil)) *** pub/qgnus/lisp/gnus-topic.el Sat Feb 14 19:27:45 1998 --- qgnus/lisp/gnus-topic.el Sun Feb 22 04:19:12 1998 *************** *** 40,51 **** "Minor mode for Gnus group buffers.") (defcustom gnus-topic-mode-hook nil ! "*Hook run in topic mode buffers." :type 'hook :group 'gnus-topic) (defcustom gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n" ! "*Format of topic lines. It works along the same lines as a normal formatting string, with some simple extensions. --- 40,51 ---- "Minor mode for Gnus group buffers.") (defcustom gnus-topic-mode-hook nil ! "Hook run in topic mode buffers." :type 'hook :group 'gnus-topic) (defcustom gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n" ! "Format of topic lines. It works along the same lines as a normal formatting string, with some simple extensions. *** pub/qgnus/lisp/gnus-uu.el Sat Feb 14 19:27:47 1998 --- qgnus/lisp/gnus-uu.el Sun Feb 22 04:19:14 1998 *************** *** 103,109 **** :type '(repeat (group regexp (string :tag "Command")))) (defcustom gnus-uu-user-view-rules nil ! "*What actions are to be taken to view a file. See the documentation on the `gnus-uu-default-view-rules' variable for details." :group 'gnus-extract-view --- 103,109 ---- :type '(repeat (group regexp (string :tag "Command")))) (defcustom gnus-uu-user-view-rules nil ! "What actions are to be taken to view a file. See the documentation on the `gnus-uu-default-view-rules' variable for details." :group 'gnus-extract-view *************** *** 137,143 **** (list "uncompress" "gunzip")) (defcustom gnus-uu-user-archive-rules nil ! "*A list that can be set to override the default archive unpacking commands. To use, for instance, 'untar' to unpack tar files and 'zip -x' to unpack zip files, say the following: (setq gnus-uu-user-archive-rules --- 137,143 ---- (list "uncompress" "gunzip")) (defcustom gnus-uu-user-archive-rules nil ! "A list that can be set to override the default archive unpacking commands. To use, for instance, 'untar' to unpack tar files and 'zip -x' to unpack zip files, say the following: (setq gnus-uu-user-archive-rules *************** *** 234,240 **** :type 'boolean) (defcustom gnus-uu-grabbed-file-functions nil ! "*Functions run on each file after successful decoding. They will be called with the name of the file as the argument. Likely functions you can use in this list are `gnus-uu-grab-view' and `gnus-uu-grab-move'." --- 234,240 ---- :type 'boolean) (defcustom gnus-uu-grabbed-file-functions nil ! "Functions run on each file after successful decoding. They will be called with the name of the file as the argument. Likely functions you can use in this list are `gnus-uu-grab-view' and `gnus-uu-grab-move'." *************** *** 284,290 **** :type 'boolean) (defcustom gnus-uu-pre-uudecode-hook nil ! "*Hook run before sending a message to uudecode." :group 'gnus-extract :type 'hook) --- 284,290 ---- :type 'boolean) (defcustom gnus-uu-pre-uudecode-hook nil ! "Hook run before sending a message to uudecode." :group 'gnus-extract :type 'hook) *************** *** 1749,1755 **** ;; and "spiral.jpg", respectively.) The function should return nil if ;; the encoding wasn't successful. (defcustom gnus-uu-post-encode-method 'gnus-uu-post-encode-uuencode ! "*Function used for encoding binary files. There are three functions supplied with gnus-uu for encoding files: `gnus-uu-post-encode-uuencode', which does straight uuencoding; `gnus-uu-post-encode-mime', which encodes with base64 and adds MIME --- 1749,1755 ---- ;; and "spiral.jpg", respectively.) The function should return nil if ;; the encoding wasn't successful. (defcustom gnus-uu-post-encode-method 'gnus-uu-post-encode-uuencode ! "Function used for encoding binary files. There are three functions supplied with gnus-uu for encoding files: `gnus-uu-post-encode-uuencode', which does straight uuencoding; `gnus-uu-post-encode-mime', which encodes with base64 and adds MIME *************** *** 1762,1782 **** (function :tag "Other"))) (defcustom gnus-uu-post-include-before-composing nil ! "*Non-nil means that gnus-uu will ask for a file to encode before you compose the article. If this variable is t, you can either include an encoded file with \\[gnus-uu-post-insert-binary-in-article] or have one included for you when you post the article." :group 'gnus-extract-post :type 'boolean) (defcustom gnus-uu-post-length 990 ! "*Maximum length of an article. The encoded file will be split into how many articles it takes to post the entire file." :group 'gnus-extract-post :type 'integer) (defcustom gnus-uu-post-threaded nil ! "*Non-nil means that gnus-uu will post the encoded file in a thread. This may not be smart, as no other decoder I have seen are able to follow threads when collecting uuencoded articles. (Well, I have seen one package that does that - gnus-uu, but somehow, I don't think that --- 1762,1782 ---- (function :tag "Other"))) (defcustom gnus-uu-post-include-before-composing nil ! "Non-nil means that gnus-uu will ask for a file to encode before you compose the article. If this variable is t, you can either include an encoded file with \\[gnus-uu-post-insert-binary-in-article] or have one included for you when you post the article." :group 'gnus-extract-post :type 'boolean) (defcustom gnus-uu-post-length 990 ! "Maximum length of an article. The encoded file will be split into how many articles it takes to post the entire file." :group 'gnus-extract-post :type 'integer) (defcustom gnus-uu-post-threaded nil ! "Non-nil means that gnus-uu will post the encoded file in a thread. This may not be smart, as no other decoder I have seen are able to follow threads when collecting uuencoded articles. (Well, I have seen one package that does that - gnus-uu, but somehow, I don't think that *************** *** 1785,1791 **** :type 'boolean) (defcustom gnus-uu-post-separate-description t ! "*Non-nil means that the description will be posted in a separate article. The first article will typically be numbered (0/x). If this variable is nil, the description the user enters will be included at the beginning of the first article, which will be numbered (1/x). Default --- 1785,1791 ---- :type 'boolean) (defcustom gnus-uu-post-separate-description t ! "Non-nil means that the description will be posted in a separate article. The first article will typically be numbered (0/x). If this variable is nil, the description the user enters will be included at the beginning of the first article, which will be numbered (1/x). Default *** pub/qgnus/lisp/gnus-xmas.el Sun Feb 15 19:49:58 1998 --- qgnus/lisp/gnus-xmas.el Sun Feb 22 04:19:14 1998 *************** *** 34,40 **** :group 'gnus) (defcustom gnus-xmas-glyph-directory nil ! "*Directory where Gnus logos and icons are located. If this variable is nil, Gnus will try to locate the directory automatically." :type '(choice (const :tag "autodetect" nil) --- 34,40 ---- :group 'gnus) (defcustom gnus-xmas-glyph-directory nil ! "Directory where Gnus logos and icons are located. If this variable is nil, Gnus will try to locate the directory automatically." :type '(choice (const :tag "autodetect" nil) *** pub/qgnus/lisp/gnus.el Sat Feb 21 00:48:52 1998 --- qgnus/lisp/gnus.el Sun Feb 22 04:19:16 1998 *************** *** 246,266 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.30" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) "Version string for this version of Gnus.") (defcustom gnus-inhibit-startup-message nil ! "*If non-nil, the startup message will not be displayed. This variable is used before `.gnus.el' is loaded, so it should be set in `.emacs' instead." :group 'gnus-start :type 'boolean) (defcustom gnus-play-startup-jingle nil ! "*If non-nil, play the Gnus jingle at startup." :group 'gnus-start :type 'boolean) --- 246,266 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.31" "Version number for this version of Gnus.") (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number) "Version string for this version of Gnus.") (defcustom gnus-inhibit-startup-message nil ! "If non-nil, the startup message will not be displayed. This variable is used before `.gnus.el' is loaded, so it should be set in `.emacs' instead." :group 'gnus-start :type 'boolean) (defcustom gnus-play-startup-jingle nil ! "If non-nil, play the Gnus jingle at startup." :group 'gnus-start :type 'boolean) *************** *** 695,707 **** (require 'nnheader) (defcustom gnus-home-directory "~/" ! "*Directory variable that specifies the \"home\" directory. All other Gnus path variables are initialized from this variable." :group 'gnus-files :type 'directory) (defcustom gnus-directory (or (getenv "SAVEDIR") ! (nnheader-concat gnus-home-directory "News/")) "*Directory variable from which all other Gnus file variables are derived." :group 'gnus-files :type 'directory) --- 695,707 ---- (require 'nnheader) (defcustom gnus-home-directory "~/" ! "Directory variable that specifies the \"home\" directory. All other Gnus path variables are initialized from this variable." :group 'gnus-files :type 'directory) (defcustom gnus-directory (or (getenv "SAVEDIR") ! (nnheader-concat gnus-home-directory "News/")) "*Directory variable from which all other Gnus file variables are derived." :group 'gnus-files :type 'directory) *************** *** 732,738 **** (setq gnus-select-method '(nntp \"my.nntp.server\" (nntp-port-number 899)))") (defcustom gnus-nntpserver-file "/etc/nntpserver" ! "*A file with only the name of the nntp server in it." :group 'gnus-files :group 'gnus-server :type 'file) --- 732,738 ---- (setq gnus-select-method '(nntp \"my.nntp.server\" (nntp-port-number 899)))") (defcustom gnus-nntpserver-file "/etc/nntpserver" ! "A file with only the name of the nntp server in it." :group 'gnus-files :group 'gnus-server :type 'file) *************** *** 832,838 **** string)) (defcustom gnus-secondary-servers nil ! "*List of NNTP servers that the user can choose between interactively. To make Gnus query you for a server, you have to give `gnus' a non-numeric prefix - `C-u M-x gnus', in short." :group 'gnus-server --- 832,838 ---- string)) (defcustom gnus-secondary-servers nil ! "List of NNTP servers that the user can choose between interactively. To make Gnus query you for a server, you have to give `gnus' a non-numeric prefix - `C-u M-x gnus', in short." :group 'gnus-server *************** *** 847,853 **** string)) (defcustom gnus-secondary-select-methods nil ! "*A list of secondary methods that will be used for reading news. This is a list where each element is a complete select method (see `gnus-select-method'). --- 847,853 ---- string)) (defcustom gnus-secondary-select-methods nil ! "A list of secondary methods that will be used for reading news. This is a list where each element is a complete select method (see `gnus-select-method'). *************** *** 864,870 **** Should be set in paths.el, and shouldn't be touched by the user.") (defcustom gnus-local-domain nil ! "*Local domain name without a host name. The DOMAINNAME environment variable is used instead if it is defined. If the `system-name' function returns the full Internet name, there is no need to set this variable." --- 864,870 ---- Should be set in paths.el, and shouldn't be touched by the user.") (defcustom gnus-local-domain nil ! "Local domain name without a host name. The DOMAINNAME environment variable is used instead if it is defined. If the `system-name' function returns the full Internet name, there is no need to set this variable." *************** *** 879,885 **** ;; Customization variables (defcustom gnus-refer-article-method nil ! "*Preferred method for fetching an article by Message-ID. If you are reading news from the local spool (with nnspool), fetching articles by Message-ID is painfully slow. By setting this method to an nntp method, you might get acceptable results. --- 879,885 ---- ;; Customization variables (defcustom gnus-refer-article-method nil ! "Preferred method for fetching an article by Message-ID. If you are reading news from the local spool (with nnspool), fetching articles by Message-ID is painfully slow. By setting this method to an nntp method, you might get acceptable results. *************** *** 1044,1050 **** :type 'boolean) (defcustom gnus-use-demon nil ! "*If non-nil, Gnus might use some demons." :group 'gnus-meta :type 'boolean) --- 1044,1050 ---- :type 'boolean) (defcustom gnus-use-demon nil ! "If non-nil, Gnus might use some demons." :group 'gnus-meta :type 'boolean) *************** *** 1106,1112 **** :type 'boolean) (defcustom gnus-shell-command-separator ";" ! "*String used to separate to shell commands." :group 'gnus-files :type 'string) --- 1106,1112 ---- :type 'boolean) (defcustom gnus-shell-command-separator ";" ! "String used to separate to shell commands." :group 'gnus-files :type 'string) *************** *** 1162,1168 **** (sexp :tag "Value"))))) (defcustom gnus-updated-mode-lines '(group article summary tree) ! "*List of buffers that should update their mode lines. The list may contain the symbols `group', `article', `tree' and `summary'. If the corresponding symbol is present, Gnus will keep that mode line updated with information that may be pertinent. --- 1162,1168 ---- (sexp :tag "Value"))))) (defcustom gnus-updated-mode-lines '(group article summary tree) ! "List of buffers that should update their mode lines. The list may contain the symbols `group', `article', `tree' and `summary'. If the corresponding symbol is present, Gnus will keep that mode line updated with information that may be pertinent. *************** *** 1202,1208 **** regexp)) (defcustom gnus-group-uncollapsed-levels 1 ! "*Number of group name elements to leave alone when making a short group name." :group 'gnus-group-visual :type 'integer) --- 1202,1208 ---- regexp)) (defcustom gnus-group-uncollapsed-levels 1 ! "Number of group name elements to leave alone when making a short group name." :group 'gnus-group-visual :type 'integer) *************** *** 1214,1225 **** ;; Hooks. (defcustom gnus-load-hook nil ! "*A hook run while Gnus is loaded." :group 'gnus-start :type 'hook) (defcustom gnus-apply-kill-hook '(gnus-apply-kill-file) ! "*A hook called to apply kill files to a group. This hook is intended to apply a kill file to the selected newsgroup. The function `gnus-apply-kill-file' is called by default. --- 1214,1225 ---- ;; Hooks. (defcustom gnus-load-hook nil ! "A hook run while Gnus is loaded." :group 'gnus-start :type 'hook) (defcustom gnus-apply-kill-hook '(gnus-apply-kill-file) ! "A hook called to apply kill files to a group. This hook is intended to apply a kill file to the selected newsgroup. The function `gnus-apply-kill-file' is called by default. *************** *** 1240,1246 **** :type 'hook) (defcustom gnus-group-change-level-function nil ! "*Function run when a group level is changed. It is called with three parameters -- GROUP, LEVEL and OLDLEVEL." :group 'gnus-group-level :type 'function) --- 1240,1246 ---- :type 'hook) (defcustom gnus-group-change-level-function nil ! "Function run when a group level is changed. It is called with three parameters -- GROUP, LEVEL and OLDLEVEL." :group 'gnus-group-level :type 'function) *************** *** 2518,2524 **** (kill-buffer (current-buffer)))))) (defcustom gnus-kill-file-name "KILL" ! "*Suffix of the kill files." :group 'gnus-score-kill :group 'gnus-score-files :type 'string) --- 2518,2524 ---- (kill-buffer (current-buffer)))))) (defcustom gnus-kill-file-name "KILL" ! "Suffix of the kill files." :group 'gnus-score-kill :group 'gnus-score-files :type 'string) *** pub/qgnus/lisp/message.el Sat Feb 21 00:48:54 1998 --- qgnus/lisp/message.el Sun Feb 22 04:19:18 1998 *************** *** 109,115 **** :type 'integer) (defcustom message-send-rename-function nil ! "*Function called to rename the buffer after sending it." :group 'message-buffers :type 'function) --- 109,115 ---- :type 'integer) (defcustom message-send-rename-function nil ! "Function called to rename the buffer after sending it." :group 'message-buffers :type 'function) *************** *** 156,162 **** :group 'message-headers) (defcustom message-syntax-checks nil ! ;; Guess this one shouldn't be easy to customize... "*Controls what syntax checks should not be performed on outgoing posts. To disable checking of long signatures, for instance, add `(signature . disabled)' to this list. --- 156,162 ---- :group 'message-headers) (defcustom message-syntax-checks nil ! ; Guess this one shouldn't be easy to customize... "*Controls what syntax checks should not be performed on outgoing posts. To disable checking of long signatures, for instance, add `(signature . disabled)' to this list. *************** *** 193,199 **** :type '(repeat sexp)) (defcustom message-deletable-headers '(Message-ID Date Lines) ! "*Headers to be deleted if they already exist and were generated by message previously." :group 'message-headers :type 'sexp) --- 193,199 ---- :type '(repeat sexp)) (defcustom message-deletable-headers '(Message-ID Date Lines) ! "Headers to be deleted if they already exist and were generated by message previously." :group 'message-headers :type 'sexp) *************** *** 219,225 **** ;;;###autoload (defcustom message-signature-separator "^-- *$" ! "*Regexp matching the signature separator." :type 'regexp :group 'message-various) --- 219,225 ---- ;;;###autoload (defcustom message-signature-separator "^-- *$" ! "Regexp matching the signature separator." :type 'regexp :group 'message-various) *************** *** 229,235 **** :group 'message-various) (defcustom message-interactive nil ! "*Non-nil means when sending a message wait for and display errors. nil means let mailer mail back a message to report errors." :group 'message-sending :group 'message-mail --- 229,235 ---- :group 'message-various) (defcustom message-interactive nil ! "Non-nil means when sending a message wait for and display errors. nil means let mailer mail back a message to report errors." :group 'message-sending :group 'message-mail *************** *** 310,323 **** :type 'regexp) (defcustom message-cancel-message "I am canceling my own article." ! "*Message to be inserted in the cancel message." :group 'message-interface :type 'string) ;; Useful to set in site-init.el ;;;###autoload (defcustom message-send-mail-function 'message-send-mail-with-sendmail ! "*Function to call to send the current buffer as mail. The headers should be delimited by a line whose contents match the variable `mail-header-separator'. --- 310,323 ---- :type 'regexp) (defcustom message-cancel-message "I am canceling my own article." ! "Message to be inserted in the cancel message." :group 'message-interface :type 'string) ;; Useful to set in site-init.el ;;;###autoload (defcustom message-send-mail-function 'message-send-mail-with-sendmail ! "Function to call to send the current buffer as mail. The headers should be delimited by a line whose contents match the variable `mail-header-separator'. *************** *** 333,339 **** :group 'message-mail) (defcustom message-send-news-function 'message-send-news ! "*Function to call to send the current buffer as news. The headers should be delimited by a line whose contents match the variable `mail-header-separator'." :group 'message-sending --- 333,339 ---- :group 'message-mail) (defcustom message-send-news-function 'message-send-news ! "Function to call to send the current buffer as news. The headers should be delimited by a line whose contents match the variable `mail-header-separator'." :group 'message-sending *************** *** 341,361 **** :type 'function) (defcustom message-reply-to-function nil ! "*Function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers." :group 'message-interface :type 'function) (defcustom message-wide-reply-to-function nil ! "*Function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers." :group 'message-interface :type 'function) (defcustom message-followup-to-function nil ! "*Function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers." :group 'message-interface --- 341,361 ---- :type 'function) (defcustom message-reply-to-function nil ! "Function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers." :group 'message-interface :type 'function) (defcustom message-wide-reply-to-function nil ! "Function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers." :group 'message-interface :type 'function) (defcustom message-followup-to-function nil ! "Function that should return a list of headers. This function should pick out addresses from the To, Cc, and From headers and respond with new To and Cc headers." :group 'message-interface *************** *** 381,392 **** ;; qmail-related stuff (defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject" ! "*Location of the qmail-inject program." :group 'message-sending :type 'file) (defcustom message-qmail-inject-args nil ! "*Arguments passed to qmail-inject programs. This should be a list of strings, one string for each argument. For e.g., if you wish to set the envelope sender address so that bounces --- 381,392 ---- ;; qmail-related stuff (defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject" ! "Location of the qmail-inject program." :group 'message-sending :type 'file) (defcustom message-qmail-inject-args nil ! "Arguments passed to qmail-inject programs. This should be a list of strings, one string for each argument. For e.g., if you wish to set the envelope sender address so that bounces *************** *** 417,446 **** :type 'boolean) (defcustom message-setup-hook nil ! "*Normal hook, run each time a new outgoing message is initialized. The function `message-setup' runs this hook." :group 'message-various :type 'hook) (defcustom message-signature-setup-hook nil ! "*Normal hook, run each time a new outgoing message is initialized. It is run after the headers have been inserted and before the signature is inserted." :group 'message-various :type 'hook) (defcustom message-mode-hook nil ! "*Hook run in message mode buffers." :group 'message-various :type 'hook) (defcustom message-header-hook nil ! "*Hook run in a message mode buffer narrowed to the headers." :group 'message-various :type 'hook) (defcustom message-header-setup-hook nil ! "*Hook called narrowed to the headers when setting up a message buffer." :group 'message-various :type 'hook) --- 417,446 ---- :type 'boolean) (defcustom message-setup-hook nil ! "Normal hook, run each time a new outgoing message is initialized. The function `message-setup' runs this hook." :group 'message-various :type 'hook) (defcustom message-signature-setup-hook nil ! "Normal hook, run each time a new outgoing message is initialized. It is run after the headers have been inserted and before the signature is inserted." :group 'message-various :type 'hook) (defcustom message-mode-hook nil ! "Hook run in message mode buffers." :group 'message-various :type 'hook) (defcustom message-header-hook nil ! "Hook run in a message mode buffer narrowed to the headers." :group 'message-various :type 'hook) (defcustom message-header-setup-hook nil ! "Hook called narrowed to the headers when setting up a message buffer." :group 'message-various :type 'hook) *************** *** 512,525 **** :type 'function) (defcustom message-expires 14 ! "*Number of days before your article expires." :group 'message-news :group 'message-headers :link '(custom-manual "(message)News Headers") :type 'integer) (defcustom message-user-path nil ! "*If nil, use the NNTP server name in the Path header. If stringp, use this; if non-nil, use no host name (user name only)." :group 'message-news :group 'message-headers --- 512,525 ---- :type 'function) (defcustom message-expires 14 ! "Number of days before your article expires." :group 'message-news :group 'message-headers :link '(custom-manual "(message)News Headers") :type 'integer) (defcustom message-user-path nil ! "If nil, use the NNTP server name in the Path header. If stringp, use this; if non-nil, use no host name (user name only)." :group 'message-news :group 'message-headers *************** *** 795,817 **** The cdr of ech entry is a function for applying the face to a region.") (defcustom message-send-hook nil ! "*Hook run before sending messages." :group 'message-various :options '(ispell-message) :type 'hook) (defcustom message-send-mail-hook nil ! "*Hook run before sending mail messages." :group 'message-various :type 'hook) (defcustom message-send-news-hook nil ! "*Hook run before sending news messages." :group 'message-various :type 'hook) (defcustom message-sent-hook nil ! "*Hook run after sending messages." :group 'message-various :type 'hook) --- 795,817 ---- The cdr of ech entry is a function for applying the face to a region.") (defcustom message-send-hook nil ! "Hook run before sending messages." :group 'message-various :options '(ispell-message) :type 'hook) (defcustom message-send-mail-hook nil ! "Hook run before sending mail messages." :group 'message-various :type 'hook) (defcustom message-send-news-hook nil ! "Hook run before sending news messages." :group 'message-various :type 'hook) (defcustom message-sent-hook nil ! "Hook run after sending messages." :group 'message-various :type 'hook) *** pub/qgnus/lisp/nnmail.el Sat Feb 21 00:48:57 1998 --- qgnus/lisp/nnmail.el Sun Feb 22 04:19:20 1998 *************** *** 106,119 **** ;; Suggested by Erik Selberg . (defcustom nnmail-crosspost t ! "*If non-nil, do crossposting if several split methods match the mail. If nil, the first match found will be used." :group 'nnmail-split :type 'boolean) ;; Added by gord@enci.ucalgary.ca (Gordon Matzigkeit). (defcustom nnmail-keep-last-article nil ! "*If non-nil, nnmail will never delete/move a group's last article. It can be marked expirable, so it will be deleted when it is no longer last. You may need to set this variable if other programs are putting --- 106,119 ---- ;; Suggested by Erik Selberg . (defcustom nnmail-crosspost t ! "If non-nil, do crossposting if several split methods match the mail. If nil, the first match found will be used." :group 'nnmail-split :type 'boolean) ;; Added by gord@enci.ucalgary.ca (Gordon Matzigkeit). (defcustom nnmail-keep-last-article nil ! "If non-nil, nnmail will never delete/move a group's last article. It can be marked expirable, so it will be deleted when it is no longer last. You may need to set this variable if other programs are putting *************** *** 123,136 **** :type 'boolean) (defcustom nnmail-use-long-file-names nil ! "*If non-nil the mail backends will use long file and directory names. If nil, groups like \"mail.misc\" will end up in directories like \"mail/misc/\"." :group 'nnmail-files :type 'boolean) (defcustom nnmail-default-file-modes 384 ! "*Set the mode bits of all new mail files to this integer." :group 'nnmail-files :type 'integer) --- 123,136 ---- :type 'boolean) (defcustom nnmail-use-long-file-names nil ! "If non-nil the mail backends will use long file and directory names. If nil, groups like \"mail.misc\" will end up in directories like \"mail/misc/\"." :group 'nnmail-files :type 'boolean) (defcustom nnmail-default-file-modes 384 ! "Set the mode bits of all new mail files to this integer." :group 'nnmail-files :type 'integer) *************** *** 145,151 **** (const never))) (defcustom nnmail-expiry-wait-function nil ! "*Variable that holds function to specify how old articles should be before they are expired. The function will be called with the name of the group that the expiry is to be performed in, and it should return an integer that says how many days an article can be stored before it is considered --- 145,151 ---- (const never))) (defcustom nnmail-expiry-wait-function nil ! "Variable that holds function to specify how old articles should be before they are expired. The function will be called with the name of the group that the expiry is to be performed in, and it should return an integer that says how many days an article can be stored before it is considered *************** *** 164,170 **** (function :format "%v" nnmail-))) (defcustom nnmail-cache-accepted-message-ids nil ! "*If non-nil, put Message-IDs of Gcc'd articles into the duplicate cache." :group 'nnmail :type 'boolean) --- 164,170 ---- (function :format "%v" nnmail-))) (defcustom nnmail-cache-accepted-message-ids nil ! "If non-nil, put Message-IDs of Gcc'd articles into the duplicate cache." :group 'nnmail :type 'boolean) *************** *** 182,188 **** :type 'file) (defcustom nnmail-crash-box "~/.gnus-crash-box" ! "*File where Gnus will store mail while processing it." :group 'nnmail-files :type 'file) --- 182,188 ---- :type 'file) (defcustom nnmail-crash-box "~/.gnus-crash-box" ! "File where Gnus will store mail while processing it." :group 'nnmail-files :type 'file) *************** *** 211,217 **** :type 'boolean) (defcustom nnmail-delete-file-function 'delete-file ! "*Function called to delete files in some mail backends." :group 'nnmail-files :type 'function) --- 211,217 ---- :type 'boolean) (defcustom nnmail-delete-file-function 'delete-file ! "Function called to delete files in some mail backends." :group 'nnmail-files :type 'function) *************** *** 278,302 **** ;; Suggested by Erik Selberg . (defcustom nnmail-prepare-incoming-hook nil ! "*Hook called before treating incoming mail. The hook is run in a buffer with all the new, incoming mail." :group 'nnmail-prepare :type 'hook) (defcustom nnmail-prepare-incoming-header-hook nil ! "*Hook called narrowed to the headers of each message. This can be used to remove excessive spaces (and stuff like that) from the headers before splitting and saving the messages." :group 'nnmail-prepare :type 'hook) (defcustom nnmail-prepare-incoming-message-hook nil ! "*Hook called narrowed to each message." :group 'nnmail-prepare :type 'hook) (defcustom nnmail-list-identifiers nil ! "*Regexp that matches list identifiers to be removed. This can also be a list of regexps." :group 'nnmail-prepare :type '(choice (const :tag "none" nil) --- 278,302 ---- ;; Suggested by Erik Selberg . (defcustom nnmail-prepare-incoming-hook nil ! "Hook called before treating incoming mail. The hook is run in a buffer with all the new, incoming mail." :group 'nnmail-prepare :type 'hook) (defcustom nnmail-prepare-incoming-header-hook nil ! "Hook called narrowed to the headers of each message. This can be used to remove excessive spaces (and stuff like that) from the headers before splitting and saving the messages." :group 'nnmail-prepare :type 'hook) (defcustom nnmail-prepare-incoming-message-hook nil ! "Hook called narrowed to each message." :group 'nnmail-prepare :type 'hook) (defcustom nnmail-list-identifiers nil ! "Regexp that matches list identifiers to be removed. This can also be a list of regexps." :group 'nnmail-prepare :type '(choice (const :tag "none" nil) *************** *** 304,320 **** (repeat :value (".*") regexp))) (defcustom nnmail-pre-get-new-mail-hook nil ! "*Hook called just before starting to handle new incoming mail." :group 'nnmail-retrieve :type 'hook) (defcustom nnmail-post-get-new-mail-hook nil ! "*Hook called just after finishing handling new incoming mail." :group 'nnmail-retrieve :type 'hook) (defcustom nnmail-split-hook nil ! "*Hook called before deciding where to split an article. The functions in this hook are free to modify the buffer contents in any way they choose -- the buffer contents are discarded after running the split process." --- 304,320 ---- (repeat :value (".*") regexp))) (defcustom nnmail-pre-get-new-mail-hook nil ! "Hook called just before starting to handle new incoming mail." :group 'nnmail-retrieve :type 'hook) (defcustom nnmail-post-get-new-mail-hook nil ! "Hook called just after finishing handling new incoming mail." :group 'nnmail-retrieve :type 'hook) (defcustom nnmail-split-hook nil ! "Hook called before deciding where to split an article. The functions in this hook are free to modify the buffer contents in any way they choose -- the buffer contents are discarded after running the split process." *************** *** 338,344 **** :type 'integer) (defcustom nnmail-split-fancy "mail.misc" ! "*Incoming mail can be split according to this fancy variable. To enable this, set `nnmail-split-methods' to `nnmail-split-fancy'. The format is this variable is SPLIT, where SPLIT can be one of --- 338,344 ---- :type 'integer) (defcustom nnmail-split-fancy "mail.misc" ! "Incoming mail can be split according to this fancy variable. To enable this, set `nnmail-split-methods' to `nnmail-split-fancy'. The format is this variable is SPLIT, where SPLIT can be one of *** pub/qgnus/lisp/pop3.el Sat Feb 14 19:28:01 1998 --- qgnus/lisp/pop3.el Sun Feb 22 04:19:20 1998 *************** *** 1,10 **** ;;; pop3.el --- Post Office Protocol (RFC 1460) interface ! ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. ;; Author: Richard L. Pieri ;; Keywords: mail, pop3 ! ;; Version: 1.3k ;; This file is part of GNU Emacs. --- 1,10 ---- ;;; pop3.el --- Post Office Protocol (RFC 1460) interface ! ;; Copyright (C) 1996,1997 Free Software Foundation, Inc. ;; Author: Richard L. Pieri ;; Keywords: mail, pop3 ! ;; Version: 1.3l ;; This file is part of GNU Emacs. *************** *** 37,45 **** (require 'mail-utils) (provide 'pop3) ! (defconst pop3-version "1.3k") ! (defvar pop3-maildrop (or user-login-name (getenv "LOGNAME") (getenv "USER") nil) "*POP3 maildrop.") (defvar pop3-mailhost (or (getenv "MAILHOST") nil) "*POP3 mailhost.") --- 37,45 ---- (require 'mail-utils) (provide 'pop3) ! (defconst pop3-version "1.3l") ! (defvar pop3-maildrop (or (user-login-name) (getenv "LOGNAME") (getenv "USER") nil) "*POP3 maildrop.") (defvar pop3-mailhost (or (getenv "MAILHOST") nil) "*POP3 mailhost.") *** pub/qgnus/lisp/ChangeLog Sat Feb 21 00:48:35 1998 --- qgnus/lisp/ChangeLog Sun Feb 22 04:18:55 1998 *************** *** 1,3 **** --- 1,28 ---- + Sun Feb 22 04:21:15 1998 Lars Magne Ingebrigtsen + + * gnus.el: Quassia Gnus v0.31 is released. + + Sun Feb 22 02:09:35 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-highlight): Give undownloaded marks a + better face. + + * gnus-score.el (gnus-score-set): Take optional "warn". + (gnus-summary-score-entry): Use it. + + * gnus.el: Removed spurious * in defcustoms. + + * gnus-score.el (gnus-score-load-file): Reverse logic. + + * gnus-cite.el (gnus-article-hide-citation): Use markers to make + things work when wrapping. + + * gnus-sum.el (gnus-summary-exit): Stop prefetch. + + Sat Feb 21 02:12:42 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-get-newsgroup-headers): Buggy regexp. + Sat Feb 21 00:51:22 1998 Lars Magne Ingebrigtsen * gnus.el: Quassia Gnus v0.30 is released. *** pub/qgnus/texi/gnus.texi Sat Feb 21 00:49:06 1998 --- qgnus/texi/gnus.texi Sun Feb 22 04:19:30 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.30 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Quassia Gnus 0.31 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 313,319 **** @tex @titlepage ! @title Quassia Gnus 0.30 Manual @author by Lars Magne Ingebrigtsen @page --- 313,319 ---- @tex @titlepage ! @title Quassia Gnus 0.31 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 349,355 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.30. @end ifinfo --- 349,355 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Quassia Gnus 0.31. @end ifinfo *************** *** 12293,12299 **** @item read-only Read-only score files will not be updated or saved. Global score files ! should feature this atom (@pxref{Global Score Files}). @item orphan The value of this entry should be a number. Articles that do not have --- 12293,12301 ---- @item read-only Read-only score files will not be updated or saved. Global score files ! should feature this atom (@pxref{Global Score Files}). (Note: ! @dfn{Global} here really means @dfn{global}; not just your personal ! apply-to-all-groups score files.) @item orphan The value of this entry should be a number. Articles that do not have *************** *** 17286,17291 **** --- 17288,17296 ---- @item New limit command---limit to articles that have a certain string in the head or body. + + @item + Allow breaking lengthy NNTP commands. @item Solve the halting problem. *** pub/qgnus/texi/message.texi Sat Feb 21 00:49:06 1998 --- qgnus/texi/message.texi Sun Feb 22 04:19:31 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.30 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 0.31 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 0.30 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 0.31 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 80,86 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.30. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 80,86 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 0.31. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/qgnus/texi/ChangeLog Sat Feb 21 00:49:07 1998 --- qgnus/texi/ChangeLog Sun Feb 22 04:19:31 1998 *************** *** 1,3 **** --- 1,7 ---- + Sun Feb 22 03:24:43 1998 Lars Magne Ingebrigtsen + + * gnus.texi (Score File Format): Addition. + 1998-02-18 Jason R Mastaler * gnus.texi: Corrected typo. *** pub/qgnus/texi/dir Wed Jun 18 00:54:19 1997 --- qgnus/texi/dir Tue Nov 25 06:16:59 1997 *************** *** 0 **** --- 1,9 ---- + -*- Text -*- + The Gnus-related top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob.