[mew-dist 26182] +queue での Dcc: などの表示

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

+queue で送信前のメールがそのままちゃんと見えるのは便利なのです
が、当然、(Resent-)?[FBD]cc: は見えません。この前それで失敗しちゃっ
たのですが、 :-) ので、X-Mew: などを使って表示したらどうでしょう
か？

下記の advice は失敗後でっち上げたものなのですが、それなりに便利
です。無理やり表示しているので汚いですが、こんな感じになるといい
なぁということで。

(defadvice mew-cache-message (after insert-dcc activate)
  "+queue で Fcc/Dcc/Bcc を表示する"
  (let ((headers `(,mew-fcc: ,mew-dcc: ,mew-bcc:
                   ,mew-resent-fcc: ,mew-resent-bcc: ,mew-resent-dcc:))
	(cbuf (mew-cache-hit fld msg))
	(info (concat (mew-expand-folder fld msg) mew-queue-info-suffix))
	data header addr xinfo xadds)
    (when (and cbuf
	       (file-readable-p info)
	       (or (mew-folder-queuep fld)
		   (mew-folder-postqp fld)))
      (setq data (aref (mew-lisp-load info) 0))
      (when (stringp data)
	(with-temp-buffer
	  (insert data)
	  (goto-char (point-min))
	  (while (setq header (car headers))
	    (setq headers (cdr headers))
	    (when (setq addr (mew-header-get-value header))
	      (setq xadds (cons (format "%sX-Mew-%s %s " ;; space for Face
					(if xadds "\n" "↓表示のみ\n")
					header addr)
				xadds)))))
	(when xadds
	  (with-current-buffer cbuf
	    (mew-xinfo-set-info (append (mew-xinfo-get-info) (nreverse xadds)))))))))

-- 
白井秀行 (mailto:shirai at example.com)