X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/738f9104db739f70c5fd33da39c92bca27cb809d..9afa72e8e6c422cc02cca010e9c07a03a87bdfd8:/lisp/gnuspost.el

diff --git a/lisp/gnuspost.el b/lisp/gnuspost.el
index a19e850ba5..441feb245d 100644
--- a/lisp/gnuspost.el
+++ b/lisp/gnuspost.el
@@ -116,10 +116,10 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
 ;;; Post a News using NNTP
 
 ;;;###autoload
-(fset 'sendnews 'gnus-post-news)
+(defalias 'sendnews 'gnus-post-news)
 
 ;;;###autoload
-(fset 'postnews 'gnus-post-news)
+(defalias 'postnews 'gnus-post-news)
 
 ;;;###autoload
 (defun gnus-post-news ()
@@ -436,7 +436,7 @@ original message into it."
 		(ding) (message "This article is not yours."))
 	    ;; Make control article.
 	    (set-buffer (get-buffer-create " *GNUS-canceling*"))
-	    (buffer-flush-undo (current-buffer))
+	    (buffer-disable-undo (current-buffer))
 	    (erase-buffer)
 	    (insert "Newsgroups: " newsgroups "\n"
 		    "Subject: cancel " message-id "\n"
@@ -467,7 +467,7 @@ original message into it."
 	(tmpbuf (get-buffer-create " *GNUS-posting*")))
     (save-excursion
       (set-buffer tmpbuf)
-      (buffer-flush-undo (current-buffer))
+      (buffer-disable-undo (current-buffer))
       (erase-buffer)
       (insert-buffer-substring artbuf)
       ;; Remove the header separator.
@@ -577,7 +577,7 @@ Signature file is specified by the variable gnus-signature-file."
 	      (if (file-exists-p signature)
 		  (progn
 		    (goto-char (point-max))
-		    (insert "--\n")
+		    (insert "-- \n")
 		    (insert-file-contents signature)))
 	      ))))))
 
@@ -628,7 +628,8 @@ a program specified by the rest of the value."
 		 (if (and gnus-author-copy-saver
 			  (not (eq gnus-author-copy-saver 'rmail-output)))
 		     (funcall gnus-author-copy-saver fcc-file)
-		   (if (and (file-readable-p fcc-file) (rmail-file-p fcc-file))
+		   (if (and (file-readable-p fcc-file)
+			    (mail-file-babyl-p fcc-file))
 		       (gnus-output-to-rmail fcc-file)
 		     (rmail-output fcc-file 1 t t)))
 		 ))