[Mew-dist 03683] Re: ask citation prefix if you want.

[Akihiro Motoki]

元木です。

★ TSUMURA Tomoaki (津邑公暁) <tsumura at example.com>さんの
★「[Mew-dist 03681] Re: ask citation prefix if you want.」の記事では..

> mew-cite-prefix-function を設定してる人は、prefix を "> " に
> したいときは少ないと考えまして...
> 
> (defun mew-input-prefix (default)
>   (let ((prefix (read-from-minibuffer
> 		 "Citation prefix: " default)))
>     prefix
>     ))
> 
> 単に こうするってのはダメですか？
> ちょっと面倒かもしれませんが、要らないときは消すと。
> ;; そうすると関数にするまでもないかな？ (^^;

cite-prefix を入力できるようにしたときは、read-from-minibuffer の仕様を
全然見ないで作ったので、デフォルト値を指定できることを知りませんでした(^^;;
必要のないときは消すのが普通ですね。キー操作二つで消せるので問題ないです。

もっと簡単にできて、let で囲む必要もないので、
津邑さんの言われるとおり、関数にするまでもないですね。

というわけで、お手数ですが、[Mew-dist 3677] のパッチではなく、
こちらをあてて下さい。
-- 
━━━━━━━…………‥‥・・・ ・ ・・　．
  元木 顕弘 / Akihiro Motoki            　　・
　E-mail: motoki at example.com        　・
  URL: http://www.hal.t.u-tokyo.ac.jp/~motoki/  ‘  ・・ ‥…━━☆
-------------- next part --------------
--- mew-draft.el~	Thu Jan 29 13:05:06 1998
+++ mew-draft.el	Sun Feb  8 02:22:11 1998
@@ -1053,13 +1053,16 @@
 The citation style is \"from_address> \", e.g. \"kazu> \""
   (let ((addr (mew-header-extract-addr
 	       (mew-header-get-value "From:")))
-	(petname))
+	petname prefix)
     (if (and mew-use-petname mew-petname-alist
 	     (setq petname 
 		   (cdr (mew-assoc-case-equal addr mew-petname-alist 0))))
-	(format "%s> " petname)
-      (format "%s> " (mew-header-delete-at addr))
-      )))
+	(setq prefix petname)
+      (setq prefix (mew-header-delete-at addr)))
+    (if mew-ask-cite-prefix
+	(setq prefix (read-from-minibuffer "Citation prefix: " prefix)))
+    (format "%s> " prefix)
+    ))
 
 (provide 'mew-draft)
 
-------------- next part --------------
--- mew-vars.el~	Fri Feb  6 18:08:49 1998
+++ mew-vars.el	Sat Feb  7 02:45:58 1998
@@ -638,6 +638,9 @@
 (defvar mew-ask-config nil
   "*If non-nil, prompt user if he/she want to include/change Config: field")
 
+(defvar mew-ask-cite-prefix nil
+  "*If non-nil, ask citation prefix when cite a message")
+
 ;;
 ;; Field Magic
 ;;