[Mew-dist 06782] (setq mew-cite-fields '("")) -> (mew-cite-strings)

[藤原 誠/ Makoto Fujiwara]

  Mew をいつも重宝に使わせていただいています。本当に有難うござ
います。

  さて、僕の近くに、mew-cite-format などは空でよいという人がい
まして、

(setq mew-cite-fields '(""))
(setq mew-cite-format "")

  というような設定をしている人がいました。これで Mew-1.93,
Emacs-20.3 を使いますと、C-c C-y をしたところで、C-g を押すま
で止ってしまいます。C-g を押しても、引用されるはずのものが全文
入ってしまって、何が起きたか良く分りません。(これって 
Emacs-20.3 の問題でしょうか。確か 20.3.90 でも同じようになった
気がします。)

(setq mew-cite-fields '("From"))
(setq mew-cite-format "")

と設定してもらって、無事引用が出来るようになったのですが、
次のように変更しておけば、(error にはなるのですが)
「君のは mew-cite-fields がおかしいよ」と教えてくれて、
親切な気もします。

--- mew-draft.el~	Fri Oct 23 16:37:30 1998
+++ mew-draft.el	Fri Oct 23 16:38:27 1998
@@ -777,13 +777,14 @@
   lst)
 
 (defun mew-cite-strings ()
+  (if (mew-cite-fields)
   (let ((fields (mapcar (function mew-header-get-value) mew-cite-fields)))
     (setq fields (mapcar (lambda (x) (or x "")) fields))
     (if mew-use-petname
 	(setq fields (mew-cite-strings-with-petname fields mew-cite-fields))
       )
     (apply (function format) mew-cite-format fields)
-    ))
+    )))
 
 (defvar mew-message-citation-buffer nil
   "This value is used by mew-gnus.el to specify a buffer from where

---
(藤原)