Mercurial > emacs
changeset 7517:c9b4184540f5
(gnus-post-news): Handle followup-to field.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 16 May 1994 23:02:55 +0000 |
| parents | bd6f993b61d8 |
| children | 4430fd0ea0a4 |
| files | lisp/=gnuspost.el |
| diffstat | 1 files changed, 19 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnuspost.el Mon May 16 22:02:48 1994 +0000 +++ b/lisp/=gnuspost.el Mon May 16 23:02:55 1994 +0000 @@ -133,7 +133,8 @@ (if (eq major-mode 'gnus-article-mode) gnus-newsgroup-name)) (subject nil) ;; Get default distribution. - (distribution (car gnus-local-distributions))) + (distribution (car gnus-local-distributions)) + (followup-to nil)) ;; Connect to NNTP server if not connected yet, and get ;; several information. (if (not (gnus-server-opened)) @@ -175,12 +176,18 @@ ;; Which do you like? (UMERIN) ;; (setq newsgroups (read-string "Newsgroups: " "general")) (or newsgroups ;Use the default newsgroup. - (setq newsgroups - (completing-read "Newsgroup: " - gnus-newsrc-assoc - nil 'require-match - newsgroups ;Default newsgroup. - ))) + (let (group) + (while (not + (string= + (setq group + (completing-read "Newsgroup: " + gnus-newsrc-assoc + nil 'require-match)) + "")) + (or followup-to (setq followup-to group)) + (if newsgroups + (setq newsgroups (concat newsgroups "," group)) + (setq newsgroups group))))) (setq subject (read-string "Subject: ")) ;; Choose a distribution from gnus-distribution-list. ;; completing-read should not be used with @@ -207,6 +214,11 @@ ;; Suggested by ichikawa@flab.fujitsu.junet. (mail-position-on-field "Distribution") (insert (or distribution "")) + ;; Add Followup-To header + (if followup-to + (progn + (mail-position-on-field "Followup-To") + (insert followup-to))) ;; Handle author copy using FCC field. (if gnus-author-copy (progn