[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.19.2.1 
emacs/lisp/gnus/gnus-msg.el:1.19.2.2
*** emacs/lisp/gnus/gnus-msg.el:1.19.2.1        Thu Jul 22 16:45:47 2004
--- emacs/lisp/gnus/gnus-msg.el Tue Aug 31 14:47:59 2004
***************
*** 395,402 ****
         ;; added an optional argument to `gnus-configure-posting-styles' to
         ;; make sure that the correct value for the group name is used. -- drv
         (add-hook 'message-mode-hook
!                (lambda ()
!                  (gnus-configure-posting-styles ,group)))
         (gnus-pull ',(intern gnus-draft-meta-information-header)
                  message-required-headers)
         (when (and ,group
--- 395,407 ----
         ;; added an optional argument to `gnus-configure-posting-styles' to
         ;; make sure that the correct value for the group name is used. -- drv
         (add-hook 'message-mode-hook
!                (if (memq ,config '(reply-yank reply))
!                    (lambda ()
!                      (gnus-configure-posting-styles ,group))
!                  (lambda ()
!                    ;; There may be an old " *gnus article copy*" buffer.
!                    (let (gnus-article-copy)
!                      (gnus-configure-posting-styles ,group)))))
         (gnus-pull ',(intern gnus-draft-meta-information-header)
                  message-required-headers)
         (when (and ,group
***************
*** 1261,1266 ****
--- 1266,1272 ----
        ;; Get a normal message buffer.
        (message-pop-to-buffer (message-buffer-name "Resend" to))
        (insert-buffer-substring cur)
+       (mime-to-mml)
        (message-narrow-to-head-1)
        ;; Gnus will generate a new one when sending.
        (message-remove-header "Message-ID")
***************
*** 1510,1523 ****
      (while olist
        (if (boundp (car olist))
          (ignore-errors
!           (pp `(setq ,(car olist)
!                      ,(if (or (consp (setq sym (symbol-value (car olist))))
!                               (and (symbolp sym)
!                                    (not (or (eq sym nil)
!                                             (eq sym t)))))
!                           (list 'quote (symbol-value (car olist)))
!                         (symbol-value (car olist))))
!               (current-buffer)))
        (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))
        (setq olist (cdr olist)))
      (insert "\n\n")
--- 1516,1529 ----
      (while olist
        (if (boundp (car olist))
          (ignore-errors
!          (gnus-pp
!           `(setq ,(car olist)
!                  ,(if (or (consp (setq sym (symbol-value (car olist))))
!                           (and (symbolp sym)
!                                (not (or (eq sym nil)
!                                         (eq sym t)))))
!                       (list 'quote (symbol-value (car olist)))
!                     (symbol-value (car olist))))))
        (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))
        (setq olist (cdr olist)))
      (insert "\n\n")