*** pub/rgnus/lisp/gnus-art.el Sun Mar 23 02:58:22 1997 --- rgnus/lisp/gnus-art.el Mon Mar 31 16:40:55 1997 *************** *** 115,122 **** :group 'gnus-article-hiding) (defcustom gnus-sorted-header-list ! '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^To:" ! "^Cc:" "^Date:" "^Organization:") "This variable is a list of regular expressions. If it is non-nil, headers that match the regular expressions will be placed first in the article buffer in the sequence specified by --- 115,122 ---- :group 'gnus-article-hiding) (defcustom gnus-sorted-header-list ! '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" ! "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:") "This variable is a list of regular expressions. If it is non-nil, headers that match the regular expressions will be placed first in the article buffer in the sequence specified by *************** *** 174,180 **** (defcustom gnus-emphasis-alist (let ((format ! "\\(\\s-\\|^\\|[-\"\(]\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"\)]\\)") (types '(("_" "_" underline) ("/" "/" italic) --- 174,180 ---- (defcustom gnus-emphasis-alist (let ((format ! "\\(\\s-\\|^\\|[-\"]\\|\\s(\\|\\s)\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"]\\|\\s(\\|\\s)\\)") (types '(("_" "_" underline) ("/" "/" italic) *************** *** 512,517 **** --- 512,519 ---- (defvar gnus-article-mode-syntax-table (let ((table (copy-syntax-table text-mode-syntax-table))) (modify-syntax-entry ?- "w" table) + (modify-syntax-entry ?> ")" table) + (modify-syntax-entry ?< "(" table) table) "Syntax table used in article mode buffers. Initialized from `text-mode-syntax-table.") *************** *** 2759,2766 **** (let* ((start (and entry (match-beginning (nth 1 entry)))) (end (and entry (match-end (nth 1 entry)))) (from (match-beginning 0))) ! (when (and (or (eq t (nth 1 entry)) ! (eval (nth 1 entry))) (not (gnus-button-in-region-p start end 'gnus-callback))) ;; That optional form returned non-nil, so we add the --- 2761,2768 ---- (let* ((start (and entry (match-beginning (nth 1 entry)))) (end (and entry (match-end (nth 1 entry)))) (from (match-beginning 0))) ! (when (and (or (eq t (nth 2 entry)) ! (eval (nth 2 entry))) (not (gnus-button-in-region-p start end 'gnus-callback))) ;; That optional form returned non-nil, so we add the *** pub/rgnus/lisp/gnus-ems.el Fri Mar 7 23:51:17 1997 --- rgnus/lisp/gnus-ems.el Mon Mar 31 16:40:55 1997 *************** *** 170,175 **** --- 170,176 ---- "Display table used in summary mode buffers.") (fset 'gnus-cite-add-face 'gnus-mule-cite-add-face) (fset 'gnus-max-width-function 'gnus-mule-max-width-function) + (fset 'gnus-summary-set-display-table 'ignore) (when (boundp 'gnus-check-before-posting) (setq gnus-check-before-posting *** pub/rgnus/lisp/gnus-group.el Mon Mar 24 01:28:30 1997 --- rgnus/lisp/gnus-group.el Mon Mar 31 16:40:55 1997 *************** *** 2063,2069 **** (list 'nndir-directory (if all gnus-group-archive-directory gnus-group-recent-archive-directory)))) ! (gnus-group-add-parameter group (cons 'to-address "ding@ifi.uio.no")))) (defun gnus-group-make-directory-group (dir) "Create an nndir group. --- 2063,2069 ---- (list 'nndir-directory (if all gnus-group-archive-directory gnus-group-recent-archive-directory)))) ! (gnus-group-add-parameter group (cons 'to-address "ding@gnus.org")))) (defun gnus-group-make-directory-group (dir) "Create an nndir group. *** pub/rgnus/lisp/gnus-msg.el Mon Mar 24 01:28:31 1997 --- rgnus/lisp/gnus-msg.el Mon Mar 31 16:40:56 1997 *************** *** 61,66 **** --- 61,69 ---- gatewayed to a newsgroup, and you want to followup to an article in the group.") + (defvar gnus-add-to-list nil + "*If non-nil, add a `to-list' parameter automatically.") + (defvar gnus-sent-message-ids-file (nnheader-concat gnus-directory "Sent-Message-IDs") "File where Gnus saves a cache of sent message ids.") *************** *** 367,373 **** force-news) (when article-buffer (gnus-copy-article-buffer)) ! (let ((gnus-article-reply article-buffer)) (gnus-setup-message (cond (yank 'reply-yank) (article-buffer 'reply) (t 'message)) --- 370,377 ---- force-news) (when article-buffer (gnus-copy-article-buffer)) ! (let ((gnus-article-reply article-buffer) ! (add-to-list gnus-add-to-list)) (gnus-setup-message (cond (yank 'reply-yank) (article-buffer 'reply) (t 'message)) *************** *** 406,412 **** ;; Arrange for mail groups that have no `to-address' to ;; get that when the user sends off the mail. (when (and (not to-list) ! (not to-address)) (push (list 'gnus-inews-add-to-address pgroup) message-send-actions))) (set-buffer gnus-article-copy) --- 410,417 ---- ;; Arrange for mail groups that have no `to-address' to ;; get that when the user sends off the mail. (when (and (not to-list) ! (not to-address) ! add-to-list) (push (list 'gnus-inews-add-to-address pgroup) message-send-actions))) (set-buffer gnus-article-copy) *************** *** 818,824 **** (interactive) (let ((files '("gnus.el" "gnus-sum.el" "gnus-group.el" "gnus-art.el" "gnus-start.el" "gnus-async.el" ! "gnus-msg.el" "gnus-score.el" "gnus-win.el" "nnmail.el" "message.el")) file expr olist sym) (gnus-message 4 "Please wait while we snoop your variables...") --- 823,829 ---- (interactive) (let ((files '("gnus.el" "gnus-sum.el" "gnus-group.el" "gnus-art.el" "gnus-start.el" "gnus-async.el" ! "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el" "nnmail.el" "message.el")) file expr olist sym) (gnus-message 4 "Please wait while we snoop your variables...") *** pub/rgnus/lisp/gnus-score.el Mon Mar 24 17:02:50 1997 --- rgnus/lisp/gnus-score.el Mon Mar 31 16:40:57 1997 *************** *** 37,47 **** by itself what score files are applicable to which group. Say you want to use the single score file ! \"/ftp.ifi.uio.no@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all score files in the \"/ftp.some-where:/pub/score\" directory. (setq gnus-global-score-files ! '(\"/ftp.ifi.uio.no:/pub/larsi/ding/score/soc.motss.SCORE\" \"/ftp.some-where:/pub/score\"))" :group 'gnus-score-files :type '(repeat file)) --- 37,47 ---- by itself what score files are applicable to which group. Say you want to use the single score file ! \"/ftp.gnus.org@ftp:/pub/larsi/ding/score/soc.motss.SCORE\" and all score files in the \"/ftp.some-where:/pub/score\" directory. (setq gnus-global-score-files ! '(\"/ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE\" \"/ftp.some-where:/pub/score\"))" :group 'gnus-score-files :type '(repeat file)) *** pub/rgnus/lisp/gnus-start.el Thu Mar 20 17:38:40 1997 --- rgnus/lisp/gnus-start.el Mon Mar 31 16:40:58 1997 *************** *** 2302,2310 **** (save-excursion (set-buffer gnus-dribble-buffer) (let ((slave-name ! (make-temp-name (concat gnus-current-startup-file "-slave-")))) (gnus-write-buffer slave-name) ! (set-file-modes slave-name (file-modes gnus-current-startup-file))))) (defun gnus-master-read-slave-newsrc () (let ((slave-files --- 2302,2313 ---- (save-excursion (set-buffer gnus-dribble-buffer) (let ((slave-name ! (make-temp-name (concat gnus-current-startup-file "-slave-"))) ! (modes (ignore-errors ! (file-modes (concat gnus-current-startup-file ".eld"))))) (gnus-write-buffer slave-name) ! (when modes ! (set-file-modes slave-name modes))))) (defun gnus-master-read-slave-newsrc () (let ((slave-files *** pub/rgnus/lisp/gnus-topic.el Sun Mar 9 18:41:36 1997 --- rgnus/lisp/gnus-topic.el Mon Mar 31 16:40:58 1997 *************** *** 558,565 **** (forward-line 1) (setq unfound nil))) (when unfound ! (gnus-topic-goto-topic topic) ! (forward-line 1))))) (defun gnus-topic-update-topic-line (topic-name &optional reads) (let* ((top (gnus-topic-find-topology topic-name)) --- 558,580 ---- (forward-line 1) (setq unfound nil))) (when unfound ! (gnus-topic-goto-missing-topic topic) ! (gnus-topic-insert-topic-line ! topic t t (car (gnus-topic-find-topology topic)) nil 0))))) ! ! (defun gnus-topic-goto-missing-topic (topic) ! (if (gnus-topic-goto-topic topic) ! (forward-line 1) ! ;; Topic not displayed. ! (let* ((top (gnus-topic-find-topology ! (gnus-topic-parent-topic topic))) ! (tp (reverse (cddr top)))) ! (while (not (equal (caaar tp) topic)) ! (setq tp (cdr tp))) ! (while (and tp ! (not (gnus-topic-goto-topic (caar (pop tp)))))) ! (unless tp ! (gnus-topic-goto-missing-topic (cadr top)))))) (defun gnus-topic-update-topic-line (topic-name &optional reads) (let* ((top (gnus-topic-find-topology topic-name)) *** pub/rgnus/lisp/gnus-undo.el Mon Feb 10 14:27:19 1997 --- rgnus/lisp/gnus-undo.el Mon Mar 31 16:40:59 1997 *************** *** 68,74 **** (setq gnus-undo-mode-map (make-sparse-keymap)) (gnus-define-keys gnus-undo-mode-map ! "\M-\C-_" gnus-undo)) (defun gnus-undo-make-menu-bar () (when nil --- 68,79 ---- (setq gnus-undo-mode-map (make-sparse-keymap)) (gnus-define-keys gnus-undo-mode-map ! "\M-\C-_" gnus-undo ! "\C-_" gnus-undo ! "\C-xu" gnus-undo ! [(control /)] gnus-undo ; many people are used to type `C-/' on ! ; X terminals and get `C-_'. ! )) (defun gnus-undo-make-menu-bar () (when nil *** pub/rgnus/lisp/gnus-util.el Mon Mar 24 17:02:51 1997 --- rgnus/lisp/gnus-util.el Mon Mar 31 16:40:59 1997 *************** *** 89,95 **** (defsubst gnus-functionp (form) "Return non-nil if FORM is funcallable." (or (and (symbolp form) (fboundp form)) ! (and (listp form) (eq (car form) 'lambda)))) (defsubst gnus-goto-char (point) (and point (goto-char point))) --- 89,96 ---- (defsubst gnus-functionp (form) "Return non-nil if FORM is funcallable." (or (and (symbolp form) (fboundp form)) ! (and (listp form) (eq (car form) 'lambda)) ! (compiled-function-p form))) (defsubst gnus-goto-char (point) (and point (goto-char point))) *** pub/rgnus/lisp/gnus.el Mon Mar 24 17:02:52 1997 --- rgnus/lisp/gnus.el Mon Mar 31 16:40:59 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.37" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.38" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *************** *** 1431,1437 **** (defvar gnus-have-read-active-file nil) (defconst gnus-maintainer ! "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") (defvar gnus-info-nodes --- 1431,1437 ---- (defvar gnus-have-read-active-file nil) (defconst gnus-maintainer ! "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") (defvar gnus-info-nodes *** pub/rgnus/lisp/message.el Mon Mar 24 01:28:34 1997 --- rgnus/lisp/message.el Mon Mar 31 16:41:01 1997 *************** *** 928,933 **** --- 928,946 ---- (when value (nnheader-replace-chars-in-string value ?\n ? )))) + (defun message-add-header (&rest headers) + "Add the HEADERS to the message header, skipping those already present." + (while headers + (let (hclean) + (unless (string-match "^\\([^:]+\\):[ \t]*[^ \t]" (car headers)) + (error "Invalid header `%s'" (car headers))) + (setq hclean (match-string 1 (car headers))) + (save-restriction + (message-narrow-to-headers) + (unless (re-search-forward (concat "^" (regexp-quote hclean) ":") nil t) + (insert (car headers) ?\n)))) + (setq headers (cdr headers)))) + (defun message-fetch-reply-field (header) "Fetch FIELD from the message we're replying to." (when (and message-reply-buffer *************** *** 948,954 **** (defun message-functionp (form) "Return non-nil if FORM is funcallable." (or (and (symbolp form) (fboundp form)) ! (and (listp form) (eq (car form) 'lambda)))) (defun message-strip-subject-re (subject) "Remove \"Re:\" from subject lines." --- 961,968 ---- (defun message-functionp (form) "Return non-nil if FORM is funcallable." (or (and (symbolp form) (fboundp form)) ! (and (listp form) (eq (car form) 'lambda)) ! (compiled-function-p form))) (defun message-strip-subject-re (subject) "Remove \"Re:\" from subject lines." *************** *** 1316,1322 **** (defun message-insert-to () "Insert a To header that points to the author of the article being replied to." (interactive) ! (let ((co (message-fetch-field "courtesy-copies-to"))) (when (and co (equal (downcase co) "never")) (error "The user has requested not to have copies sent via mail"))) --- 1330,1336 ---- (defun message-insert-to () "Insert a To header that points to the author of the article being replied to." (interactive) ! (let ((co (message-fetch-field "mail-copies-to"))) (when (and co (equal (downcase co) "never")) (error "The user has requested not to have copies sent via mail"))) *************** *** 3005,3011 **** (message-set-work-buffer) (unless never-mct (insert (or reply-to from ""))) ! (insert (if (bolp) "" ", ") (or to "")) (insert (if mct (concat (if (bolp) "" ", ") mct) "")) (insert (if cc (concat (if (bolp) "" ", ") cc) "")) (goto-char (point-min)) --- 3019,3025 ---- (message-set-work-buffer) (unless never-mct (insert (or reply-to from ""))) ! (insert (if to (concat (if (bolp) "" ", ") to "") "")) (insert (if mct (concat (if (bolp) "" ", ") mct) "")) (insert (if cc (concat (if (bolp) "" ", ") cc) "")) (goto-char (point-min)) *** pub/rgnus/lisp/nnbabyl.el Sun Mar 23 02:58:24 1997 --- rgnus/lisp/nnbabyl.el Mon Mar 31 16:41:02 1997 *************** *** 339,345 **** (if (stringp group) (list (cons group (nnbabyl-active-number group))) (nnmail-article-group 'nnbabyl-active-number))) ! (if (null result) (setq result 'junk) (setq result (car (nnbabyl-save-mail result)))) (set-buffer nnbabyl-mbox-buffer) --- 339,346 ---- (if (stringp group) (list (cons group (nnbabyl-active-number group))) (nnmail-article-group 'nnbabyl-active-number))) ! (if (and (null result) ! (yes-or-no-p "Moved to `junk' group; delete article? ")) (setq result 'junk) (setq result (car (nnbabyl-save-mail result)))) (set-buffer nnbabyl-mbox-buffer) *** pub/rgnus/lisp/nnfolder.el Mon Mar 24 17:02:53 1997 --- rgnus/lisp/nnfolder.el Mon Mar 31 16:41:02 1997 *************** *** 381,387 **** (list (cons group (nnfolder-active-number group))) (setq art-group (nnmail-article-group 'nnfolder-active-number)))) ! (if (null result) (setq result 'junk) (setq result (car (nnfolder-save-mail result))))) --- 381,388 ---- (list (cons group (nnfolder-active-number group))) (setq art-group (nnmail-article-group 'nnfolder-active-number)))) ! (if (and (null result) ! (yes-or-no-p "Moved to `junk' group; delete article? ")) (setq result 'junk) (setq result (car (nnfolder-save-mail result))))) *************** *** 578,589 **** (end (point-max)) (obuf (current-buffer))) (nnfolder-possibly-change-folder (car group-art)) ! (goto-char (point-max)) ! (unless (eolp) ! (insert "\n")) ! (unless (bobp) ! (insert "\n")) ! (insert-buffer-substring obuf beg end)))) ;; Did we save it anywhere? save-list)) --- 579,591 ---- (end (point-max)) (obuf (current-buffer))) (nnfolder-possibly-change-folder (car group-art)) ! (let ((buffer-read-only nil)) ! (goto-char (point-max)) ! (unless (eolp) ! (insert "\n")) ! (unless (bobp) ! (insert "\n")) ! (insert-buffer-substring obuf beg end))))) ;; Did we save it anywhere? save-list)) *** pub/rgnus/lisp/nnmbox.el Sun Mar 23 02:58:25 1997 --- rgnus/lisp/nnmbox.el Mon Mar 31 16:41:02 1997 *************** *** 309,315 **** (setq result (if (stringp group) (list (cons group (nnmbox-active-number group))) (nnmail-article-group 'nnmbox-active-number))) ! (if (null result) (setq result 'junk) (setq result (car (nnmbox-save-mail result))))) (save-excursion --- 309,316 ---- (setq result (if (stringp group) (list (cons group (nnmbox-active-number group))) (nnmail-article-group 'nnmbox-active-number))) ! (if (and (null result) ! (yes-or-no-p "Moved to `junk' group; delete article? ")) (setq result 'junk) (setq result (car (nnmbox-save-mail result))))) (save-excursion *** pub/rgnus/lisp/nnmh.el Sun Mar 23 02:58:25 1997 --- rgnus/lisp/nnmh.el Mon Mar 31 16:41:02 1997 *************** *** 302,308 **** (and (nnmail-activate 'nnmh) (let ((resu|t (nnmail-article-group 'nnmh-active-number))) ! (if (not result) 'junk (car (nnmh-save-mail result noinsert)))))) (when (and last nnmail-cache-accepted-message-ids) --- 302,309 ---- (and (nnmail-activate 'nnmh) (let ((resu|t (nnmail-article-group 'nnmh-active-number))) ! (if (and (null result) ! (yes-or-no-p "Moved to `junk' group; delete article? ")) 'junk (car (nnmh-save-mail result noinsert)))))) (when (and last nnmail-cache-accepted-message-ids) *** pub/rgnus/lisp/nnml.el Sat Mar 22 15:55:11 1997 --- rgnus/lisp/nnml.el Mon Mar 31 16:41:03 1997 *************** *** 325,331 **** (and last (nnml-save-nov)))) (and (nnmail-activate 'nnml) ! (if (not (setq result (nnmail-article-group 'nnml-active-number))) (setq result 'junk) (setq result (car (nnml-save-mail result)))) (when last --- 325,332 ---- (and last (nnml-save-nov)))) (and (nnmail-activate 'nnml) ! (if (and (not (setq result (nnmail-article-group 'nnml-active-number))) ! (yes-or-no-p "Moved to `junk' group; delete article? ")) (setq result 'junk) (setq result (car (nnml-save-mail result)))) (when last *** pub/rgnus/lisp/nntp.el Mon Mar 24 17:02:54 1997 --- rgnus/lisp/nntp.el Mon Mar 31 16:41:03 1997 *************** *** 158,164 **** (defvar nntp-connection-list nil) (defvoo nntp-server-type nil) ! (defvoo nntp-connection-alist nil) (defvoo nntp-status-string "") (defconst nntp-version "nntp 5.0") (defvoo nntp-inhibit-erase nil) --- 158,164 ---- (defvar nntp-connection-list nil) (defvoo nntp-server-type nil) ! (defvar nntp-connection-alist nil) (defvoo nntp-status-string "") (defconst nntp-version "nntp 5.0") (defvoo nntp-inhibit-erase nil) *** pub/rgnus/lisp/ChangeLog Mon Mar 24 17:02:49 1997 --- rgnus/lisp/ChangeLog Mon Mar 31 16:40:54 1997 *************** *** 1,3 **** --- 1,75 ---- + Mon Mar 31 16:34:37 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.38 is released. + + Mon Mar 31 16:12:31 1997 Hrvoje Niksic + + * message.el (message-add-header): New function. + + * gnus-art.el (gnus-sorted-header-list): List `Followup-To' after + `Newsgroups'. + + * gnus-undo.el (gnus-undo-mode-map): Bind `gnus-undo' to `C-_', + `C-x u' and `C-/'. + + Mon Mar 31 16:02:47 1997 Toby Speight + + * gnus-art.el (gnus-article-add-buttons): Eval the right element. + + Mon Mar 31 15:57:17 1997 Lars Magne Ingebrigtsen + + * gnus-msg.el (gnus-add-to-list): New variable. + (gnus-post-news): Use it. + + Mon Mar 31 15:46:34 1997 Francois Felix Ingrand + + * gnus-start.el (gnus-slave-save-newsrc): Get modes right. + + Mon Mar 31 15:43:29 1997 Michael Sperber + + * message.el (message-functionp): Recognize compiled functions. + + Mon Mar 31 15:43:57 1997 Lars Magne Ingebrigtsen + + * gnus-util.el (gnus-functionp): Ditto. + + Mon Mar 31 15:18:11 1997 Katsumi Yamaoka + + * gnus-ems.el (gnus-ems-redefine): Don't change display table. + + Mon Mar 24 11:33:59 1997 Michael Welsh Duggan + + * message.el (message-insert-to): Use mail-copies-to. + + Mon Mar 31 12:35:12 1997 Lars Magne Ingebrigtsen + + * gnus-topic.el (gnus-topic-goto-missing-topic): New function. + (gnus-topic-goto-missing-group): Use it. + + * gnus-msg.el (gnus-debug): Scan gnus-topic.el. + + * message.el (message-reply): Don't insert extra , when not to + header. + + * nntp.el (nntp-connection-alist): Un-voo. + + Sun Mar 30 09:48:41 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-article-mode-syntax-table): Make <> paren + chars. + (gnus-emphasis-alist): Use it. + + * gnus.el (gnus-maintainer): Changed. + + * nnfolder.el (nnfolder-request-accept-article): Ask before + junking. + (nnfolder-save-mail): Make buffer read/write. + + * nnmh.el (nnmh-request-accept-article): Ditto. + * nnbabyl.el (nnbabyl-request-accept-article): Ditto. + * nnmbox.el (nnmbox-request-accept-article): Ditto. + * nnml.el (nnml-request-accept-article): Ditto. + Mon Mar 24 16:57:26 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.37 is released. *** pub/rgnus/texi/gnus.texi Mon Mar 24 17:02:56 1997 --- rgnus/texi/gnus.texi Mon Mar 31 16:41:06 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.37 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.38 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.37 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.38 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 323,329 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.37. @end ifinfo --- 323,329 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.38. @end ifinfo *************** *** 2013,2019 **** Here's an example group parameter list: @example ! ((to-address . "ding@@ifi.uio.no") (auto-expiry . t)) @end example --- 2013,2019 ---- Here's an example group parameter list: @example ! ((to-address . "ding@@gnus.org") (auto-expiry . t)) @end example *************** *** 7518,7523 **** --- 7518,7528 ---- List of regexps to match headers included in digested messages. The headers will be included in the sequence they are matched. + @item gnus-add-to-list + @vindex gnus-add-to-list + If non-@code{nil}, add a @code{to-list} group parameter to mail groups + that have none when you do a @kbd{a}. + @end table *************** *** 11577,11588 **** files are applicable to which group. Say you want to use the score file ! @file{/ftp@@ftp.ifi.uio.no:/pub/larsi/ding/score/soc.motss.SCORE} and all score files in the @file{/ftp@@ftp.some-where:/pub/score} directory: @lisp (setq gnus-global-score-files ! '("/ftp@@ftp.ifi.uio.no:/pub/larsi/ding/score/soc.motss.SCORE" "/ftp@@ftp.some-where:/pub/score/")) @end lisp --- 11582,11593 ---- files are applicable to which group. Say you want to use the score file ! @file{/ftp@@ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE} and all score files in the @file{/ftp@@ftp.some-where:/pub/score} directory: @lisp (setq gnus-global-score-files ! '("/ftp@@ftp.gnus.org:/pub/larsi/ding/score/soc.motss.SCORE" "/ftp@@ftp.some-where:/pub/score/")) @end lisp *************** *** 13302,13308 **** If you are a moderator, you can use the @file{gnus-mdrtn.el} package. It is not included in the standard Gnus package. Write a mail to ! @samp{larsi@@ifi.uio.no} and state what group you moderate, and you'll get a copy. The moderation package is implemented as a minor mode for summary --- 13307,13313 ---- If you are a moderator, you can use the @file{gnus-mdrtn.el} package. It is not included in the standard Gnus package. Write a mail to ! @samp{larsi@@gnus.org} and state what group you moderate, and you'll get a copy. The moderation package is implemented as a minor mode for summary *************** *** 15010,15017 **** @cindex gnu.emacs.gnus @cindex ding mailing list ! You can also ask on the ding mailing list---@samp{ding@@ifi.uio.no}. ! Write to @samp{ding-request@@ifi.uio.no} to subscribe. @node A Programmers Guide to Gnus --- 15015,15022 ---- @cindex gnu.emacs.gnus @cindex ding mailing list ! You can also ask on the ding mailing list---@samp{ding@@gnus.org}. ! Write to @samp{ding-request@@gnus.org} to subscribe. @node A Programmers Guide to Gnus *************** *** 16003,16009 **** ("nnml:my.mail" 3 ((1 . 5) 9 (20 . 55)) ((tick (15 . 19)) (replied 3 6 (19 . 3))) (nnml "") ! (auto-expire (to-address "ding@@ifi.uio.no"))) @end example The first element is the @dfn{group name}---as Gnus knows the group, --- 16008,16014 ---- ("nnml:my.mail" 3 ((1 . 5) 9 (20 . 55)) ((tick (15 . 19)) (replied 3 6 (19 . 3))) (nnml "") ! (auto-expire (to-address "ding@@gnus.org"))) @end example The first element is the @dfn{group name}---as Gnus knows the group, *** pub/rgnus/texi/message.texi Mon Mar 24 17:02:56 1997 --- rgnus/texi/message.texi Mon Mar 31 16:41:06 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.37 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.38 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.37 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.38 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.37. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.38. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *************** *** 947,952 **** --- 947,967 ---- @item message-send-hook @vindex message-send-hook Hook run before sending messages. + + If you want to add certain headers before sending, you can use the + @code{message-add-header} function in this hook. For instance: + @findex message-add-header + + @lisp + (add-hook 'message-send-hook 'my-message-add-content) + (defun my-message-add-content () + (message-add-header + "Mime-Version: 1.0" + "Content-Type: text/plain" + "Content-Transfer-Encoding: 7bit")) + @end lisp + + This function won't add the header if the header is already present. @item message-send-mail-hook @vindex message-send-mail-hook *** pub/rgnus/texi/ChangeLog Mon Mar 24 01:28:39 1997 --- rgnus/texi/ChangeLog Mon Mar 31 16:41:06 1997 *************** *** 1,3 **** --- 1,7 ---- + Mon Mar 31 16:15:54 1997 Lars Magne Ingebrigtsen + + * message.texi (Various Message Variables): Addition. + Sun Mar 23 02:16:19 1997 Lars Magne Ingebrigtsen * gnus.texi (Thwarting Email Spam): New.