/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19.2.1 by schwab, Thu Jul 22 16:45:47 2004 UTC revision 1.19.2.2 by rsteib, Tue Aug 31 14:47:59 2004 UTC
# Line 395  Thank you for your help in stamping out Line 395  Thank you for your help in stamping out
395         ;; added an optional argument to `gnus-configure-posting-styles' to         ;; added an optional argument to `gnus-configure-posting-styles' to
396         ;; make sure that the correct value for the group name is used. -- drv         ;; make sure that the correct value for the group name is used. -- drv
397         (add-hook 'message-mode-hook         (add-hook 'message-mode-hook
398                   (lambda ()                   (if (memq ,config '(reply-yank reply))
399                     (gnus-configure-posting-styles ,group)))                       (lambda ()
400                           (gnus-configure-posting-styles ,group))
401                       (lambda ()
402                         ;; There may be an old " *gnus article copy*" buffer.
403                         (let (gnus-article-copy)
404                           (gnus-configure-posting-styles ,group)))))
405         (gnus-pull ',(intern gnus-draft-meta-information-header)         (gnus-pull ',(intern gnus-draft-meta-information-header)
406                    message-required-headers)                    message-required-headers)
407         (when (and ,group         (when (and ,group
# Line 1261  composing a new message." Line 1266  composing a new message."
1266          ;; Get a normal message buffer.          ;; Get a normal message buffer.
1267          (message-pop-to-buffer (message-buffer-name "Resend" to))          (message-pop-to-buffer (message-buffer-name "Resend" to))
1268          (insert-buffer-substring cur)          (insert-buffer-substring cur)
1269            (mime-to-mml)
1270          (message-narrow-to-head-1)          (message-narrow-to-head-1)
1271          ;; Gnus will generate a new one when sending.          ;; Gnus will generate a new one when sending.
1272          (message-remove-header "Message-ID")          (message-remove-header "Message-ID")
# Line 1510  The source file has to be in the Emacs l Line 1516  The source file has to be in the Emacs l
1516      (while olist      (while olist
1517        (if (boundp (car olist))        (if (boundp (car olist))
1518            (ignore-errors            (ignore-errors
1519              (pp `(setq ,(car olist)             (gnus-pp
1520                         ,(if (or (consp (setq sym (symbol-value (car olist))))              `(setq ,(car olist)
1521                                  (and (symbolp sym)                     ,(if (or (consp (setq sym (symbol-value (car olist))))
1522                                       (not (or (eq sym nil)                              (and (symbolp sym)
1523                                                (eq sym t)))))                                   (not (or (eq sym nil)
1524                              (list 'quote (symbol-value (car olist)))                                            (eq sym t)))))
1525                            (symbol-value (car olist))))                          (list 'quote (symbol-value (car olist)))
1526                  (current-buffer)))                        (symbol-value (car olist))))))
1527          (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))          (insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))
1528        (setq olist (cdr olist)))        (setq olist (cdr olist)))
1529      (insert "\n\n")      (insert "\n\n")

Legend:
Removed from v.1.19.2.1  
changed lines
  Added in v.1.19.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26