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 |
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") |
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") |