[mew-dist 19356] draft buffer の選択

[Hideyuki SHIRAI ( 白井秀行 )]

mew-summary-jump-to-draft-buffer() と mew-summary-cite() で使わ
れている (mew-input-buffer draft) ですが、(mew-max-draft-buffer)
ではない draft buffer を選択しようとすると、その他の buffer も補
完対象となるためやりにくいです。また、ミスも多いのではないでしょ
うか。また、draft が一つしかないのに聞いてくるのも面倒くさいです。
というわけで、

(defun mew-input-draft-buffer (default &optional folder)
  (let (comp buf)
    (save-excursion
      (setq comp (delq nil (mapcar
			    (lambda (x)
			      (set-buffer x)
			      (when (or (mew-draft-p)
					(and folder
					     (mew-folder-draftp
					      (buffer-name (current-buffer)))))
				(list (buffer-name x))))
			    (buffer-list)))))
    (if (= (length comp) 1)
	default	;; or (car comp) ?
      (setq buf (completing-read (format "Buffer (%s): " default) comp))
      (if (string= buf "")
	  default
	buf))))

なのはどうでしょうか？

mew-summary-jump-to-draft-buffer() では 
(mew-input-draft-buffer draft 'folder)

mew-summary-cite() では
(mew-input-draft-buffer draft)

と使います。

ところで、"C-cC-o" のとき "+draft" は必要なのでしょうか？

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