Mercurial > emacs

changeset 8134:7b7bb255393e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-inews-news): Allow newsgroups to be separated by spaces or commas and spaces.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Jul 1994 22:16:34 +0000
parents 96a6df522765
children 1f57b34ade27
files lisp/=gnuspost.el
diffstat 1 files changed, 36 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gnuspost.el	Sun Jul 03 20:53:42 1994 +0000
+++ b/lisp/=gnuspost.el	Sun Jul 03 22:16:34 1994 +0000
@@ -353,24 +353,43 @@
       (widen)
       (goto-char (point-min))
       (run-hooks 'news-inews-hook)
-      ;; Mail the message too if To: or Cc: exists.
-      (if (save-restriction
-	    (narrow-to-region
-	     (point-min)
-	     (progn
+      (save-restriction
+	(narrow-to-region
+	 (point-min)
+	 (progn
+	   (goto-char (point-min))
+	   (search-forward (concat "\n" mail-header-separator "\n"))
+	   (point)))
+
+	 ;; Correct newsgroups field: change sequence of spaces to comma and 
+	 ;; eliminate spaces around commas.  Eliminate imbedded line breaks.
+	 (goto-char (point-min))
+	 (if (search-forward-regexp "^Newsgroups: +" nil t)
+	     (save-restriction
+	       (narrow-to-region
+		(point)
+		(if (re-search-forward "^[^ \t]" nil 'end)
+		    (match-beginning 0)
+		  (point-max)))
 	       (goto-char (point-min))
-	       (search-forward (concat "\n" mail-header-separator "\n"))
-	       (point)))
-	    (or (mail-fetch-field "to" nil t)
-		(mail-fetch-field "cc" nil t)))
-	  (if gnus-mail-send-method
-	      (progn
-		(message "Sending via mail...")
-		(funcall gnus-mail-send-method)
-		(message "Sending via mail... done"))
-	    (ding)
-	    (message "No mailer defined.  To: and/or Cc: fields ignored.")
-	    (sit-for 1)))
+	       (replace-regexp "\n[ \t]+" " ") ;No line breaks (too confusing)
+	       (goto-char (point-min))
+	       (replace-regexp "[ \t\n]*,[ \t\n]*\\|[ \t]+" ",")
+	     ))
+
+	 ;; Mail the message too if To: or Cc: exists.
+	 (if (or (mail-fetch-field "to" nil t)
+		 (mail-fetch-field "cc" nil t))
+	     (if gnus-mail-send-method
+		 (progn
+		   (message "Sending via mail...")
+		   (widen)
+		   (funcall gnus-mail-send-method)
+		   (message "Sending via mail... done"))
+	       (ding)
+	       (message "No mailer defined.  To: and/or Cc: fields ignored.")
+	       (sit-for 1))))
+
       ;; Send to NNTP server. 
       (message "Posting to USENET...")
       (if (gnus-inews-article)