[Mew-dist 03677] ask citation prefix if you want.

[Akihiro Motoki]

元木です。

引用するとき、(setq mew-cite-prefix-function 'mew-cite-prefix-username)
で使用すると、From: のアドレスから自動的に取得したユーザー名が入りますが、
変更したいときがよくあります。

そこで、mew-ask-cite-prefix という変数を導入し、この変数が t のときは、
cite-prefix を尋ねるようにしました。デフォルトで表示される値を使いときは
リターンをたたくだけです。prefix は、"(入力値)> " になります。

名前を入れず prefix を "> " にしたいときに困るので、いいアイデアが
浮かばなかったので、"<" と入力すると、"> " が入るようにしました。
# まさか、cite-prefix として、"<> " を使う人はいないでしょう(^^)
何かいい文字があったら、提案してください。
━━━━━━━━━━━━………‥・・ ・ 　・　．
  元木 顕弘 / Akihiro Motoki                　　・      ☆
　E-mail: motoki at example.com            　・　  .
  URL: http://www.hal.t.u-tokyo.ac.jp/~motoki/      ・・
-------------- next part --------------
--- mew-draft.el~	Fri Feb  6 18:08:49 1998
+++ mew-draft.el	Sat Feb  7 02:43:30 1998
@@ -1066,13 +1066,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 (mew-input-prefix prefix)))
+    (format "%s> " prefix)
+    ))
 
 (provide 'mew-draft)
 
-------------- next part --------------
--- mew-minibuf.el~	Fri Feb  6 18:08:49 1998
+++ mew-minibuf.el	Sat Feb  7 02:48:08 1998
@@ -201,6 +201,14 @@
       config)
     ))
 
+(defun mew-input-prefix (default)
+  (let ((prefix (read-from-minibuffer
+		 (format "Citation prefix (%s): " default))))
+    (cond ((string= prefix "") default)
+	  ((string= prefix "<") "")
+	  (t prefix))
+    ))
+
 (provide 'mew-minibuf)
 
 ;;; Copyright Notice:
-------------- 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
 ;;