comparison lisp/gnus/message.el @ 34858:6c93e7d6a930

* message.el (message-setup): Use cons. Suggested by Johan Vromans <[e-mail]>. * gnus-topic.el (gnus-topic-create-topic): Use list. * gnus-vm.el (gnus-summary-save-article-vm): Require gnus-art before binding gnus-default-article-saver. * gnus-sum.el (gnus-summary-save-article): (gnus-summary-pipe-output): (gnus-summary-save-article-mail): (gnus-summary-save-article-rmail): (gnus-summary-save-article-file): (gnus-summary-write-article-file): (gnus-summary-save-article-body-file): Ditto. * gnus-mh.el (gnus-summary-save-article-folder): Ditto.

34857:6c2e68c36cdd

  (let ((mua (message-mail-user-agent))
	subject to field yank-action)
    (if (not (and message-this-is-mail mua))
	(message-setup-1 headers replybuffer actions)
      (if replybuffer
	  (setq yank-action (list 'insert-buffer replybuffer)))
      (setq headers (copy-sequence headers))
      (setq field (assq 'Subject headers))
      (when field
	(setq subject (cdr field))
	(setq headers (delq field headers)))

34858:6c93e7d6a930

  (let ((mua (message-mail-user-agent))
	subject to field yank-action)
    (if (not (and message-this-is-mail mua))
	(message-setup-1 headers replybuffer actions)
      (if replybuffer
	  (setq yank-action (cons 'insert-buffer replybuffer)))
      (setq headers (copy-sequence headers))
      (setq field (assq 'Subject headers))
      (when field
	(setq subject (cdr field))
	(setq headers (delq field headers)))