*** empty log message ***

[gnus] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d732bf4..2f9afb4 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -48,7 +48,7 @@ posting.")
 (defvar gnus-outgoing-message-group nil
   "*All outgoing messages will be put in this group.
 If you want to store all your outgoing mail and articles in the group
-\"nnml:archive\", you set this variable to that value. This variable
+\"nnml:archive\", you set this variable to that value.  This variable
 can also be a list of group names. 
 
 If you want to have greater control over what group to put each
@@ -81,6 +81,7 @@ of this message.  Please trim your Newsgroups header to exclude this
 group before posting in the future.
 
 Thank you.
+
 "
   "Format string to be inserted when complaining about crossposts.
 The first %s will be replaced by the Newsgroups header;
@@ -247,12 +248,12 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
        (gnus-summary-select-article nil nil nil article)
        (gnus-summary-remove-process-mark article))
       (gnus-copy-article-buffer)
+      (message-goto-body)      
       (let ((message-reply-buffer gnus-article-copy)
            (message-reply-headers gnus-current-headers))
        (message-yank-original)
        (setq beg (or beg (mark t))))
       (when articles (insert "\n")))
-    
     (push-mark)
     (goto-char beg)))
 
@@ -330,7 +331,8 @@ header line with the old Message-ID."
          (delete-region (goto-char (point-min))
                         (or (search-forward "\n\n" nil t) (point)))
          ;; Insert the original article headers.
-         (insert-buffer-substring gnus-original-article-buffer beg end)))
+         (insert-buffer-substring gnus-original-article-buffer beg end)
+         (article-decode-rfc1522)))
       gnus-article-copy)))
 
 (defun gnus-post-news (post &optional group header article-buffer yank subject
@@ -431,16 +433,8 @@ If SILENT, don't prompt the user."
                   (cons (or gnus-last-posting-server "") 0))))
          method-alist))))
      ;; Override normal method.
-     ((and gnus-post-method
-          (or (gnus-method-option-p group-method 'post)
-              (gnus-method-option-p group-method 'post-mail)
-              (gnus-group-find-parameter group 'to-group)))
+     (gnus-post-method
       gnus-post-method)
-     ;; Perhaps this is a mail group?
-     ((and (not (gnus-member-of-valid 'post group))
-          (not (gnus-method-option-p group-method 'post-mail))
-          (not (gnus-group-find-parameter group 'to-group)))
-      group-method)
      ;; Use the normal select method.
      (t gnus-select-method))))
 
@@ -592,7 +586,7 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
   (gnus-summary-mail-forward t))
 
 (defvar gnus-nastygram-message 
-  "The following article was inappropriately posted to %s.\n"
+  "The following article was inappropriately posted to %s.\n\n"
   "Format string to insert in nastygrams.
 The current group name will be inserted at \"%s\".")
 
@@ -605,6 +599,7 @@ The current group name will be inserted at \"%s\".")
       (let ((group gnus-newsgroup-name))
        (gnus-summary-reply-with-original n)
        (set-buffer gnus-message-buffer)
+       (message-goto-body)
        (insert (format gnus-nastygram-message group))
        (message-send-and-exit))))
 
@@ -633,6 +628,7 @@ The current group name will be inserted at \"%s\".")
          (set-buffer gnus-summary-buffer)
          (gnus-summary-reply-with-original 1)
          (set-buffer gnus-message-buffer)
+         (message-goto-body)
          (insert (format gnus-crosspost-complaint newsgroups group))
          (when (gnus-y-or-n-p "Send this complaint? ")
            (message-send-and-exit)))))))
@@ -765,7 +761,7 @@ If YANK is non-nil, include the original article."
        (kill-buffer "*Gnus Help Bug*")))
 
 (defun gnus-debug ()
-  "Attemps to go through the Gnus source file and report what variables have been changed.
+  "Attempts to go through the Gnus source file and report what variables have been changed.
 The source file has to be in the Emacs load path."
   (interactive)
   (let ((files '("gnus-load.el" "gnus-sum.el" "gnus-group.el"
@@ -818,7 +814,7 @@ The source file has to be in the Emacs load path."
       (setq olist (cdr olist)))
     (insert "\n\n")
     ;; Remove any null chars - they seem to cause trouble for some
-    ;; mailers. (Byte-compiled output from the stuff above.) 
+    ;; mailers.  (Byte-compiled output from the stuff above.) 
     (goto-char (point-min))
     (while (re-search-forward "[\000\200]" nil t)
       (replace-match "" t t))))