diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-16 23:02:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-16 23:02:55 +0000 |
| commit | d034b5a3907b16c30c02500a96d1032533f7ae70 (patch) | |
| tree | f67994c49cc983cfa9ff94a60a580a79e1a1398a /lisp/=gnuspost.el | |
| parent | b073f8f8d739a4709a44cb6f5452af7ea0c08c70 (diff) | |
| download | emacs-d034b5a3907b16c30c02500a96d1032533f7ae70.tar.gz | |
(gnus-post-news): Handle followup-to field.
Diffstat (limited to 'lisp/=gnuspost.el')
| -rw-r--r-- | lisp/=gnuspost.el | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/lisp/=gnuspost.el b/lisp/=gnuspost.el index 871f6b9d48a..5c366748b7f 100644 --- a/lisp/=gnuspost.el +++ b/lisp/=gnuspost.el @@ -133,7 +133,8 @@ Type \\[describe-mode] once editing the article to get a list of commands." (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 @@ Type \\[describe-mode] once editing the article to get a list of commands." ;; 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 @@ Type \\[describe-mode] once editing the article to get a list of commands." ;; 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 |