[Mew-dist 1281] Petname

[Yuuichi Teranishi 寺西裕一]

寺西＠ＮＴＴ情報研です。

mew-1.86 でサポートされた petname に関していくつか。

1. mew-petname-alist の作り方

   mew.el のなかの、mew-petname-alist を作るところは、
   次のようにしたほうが曖昧さがなくていいように思います。

--- mew.el.orig	Tue Jul 22 19:09:44 1997
+++ mew.el	Tue Jul 22 19:09:52 1997
@@ -817,7 +817,7 @@
 	  (insert-file-contents mew-petname-file)
 	  (goto-char (point-min))
 	  (while (not (eobp))
-	    (if (looking-at "^\\(.*\\)[ \t]+\"\\(.*\\)\"$")
+	    (if (looking-at "^\\([^ \t]+\\)[ \t]+\"\\(.*\\)\"$")
 		(setq ret (cons (cons (mew-match 1) (mew-match 2)) ret)))
 	    (forward-line))
 	  ret))

   Petname ファイルの正確な書式はよくわからないのですが、
   わたしのところでは original のままだと mew-petname-alist の
   メールアドレスの部分が空白を含んでしまい、
   assoc でうまくマッチしませんでした...。

2. cite の From: フィールド

   mew-dist 1230 番で まつもと＠NEC情報システムズ さんが出されたパッチでは、

"Thu, 10 Jul 1997 18:19:07 +0900" に
 わたし さんから届いた
『[Mew-dist 1223] Re: mew-summary-reply-with-citation』 によると…
   
  というふうに From: フィールドが Petname に書き変わって引用されますが、
  この仕様は採り入れられないのでしょうか？
  個人的にはけっこう気に入っているのですが... :-)。

  いちおう まつもと＠NEC情報システムズ さんのパッチの
  mew-1.86 版をつけておきます。


--- mew-draft.el.orig	Tue Jul 22 19:08:15 1997
+++ mew-draft.el	Tue Jul 22 22:27:31 1997
@@ -685,9 +685,31 @@
     (insert-string cite)
     ))
 
+(defun mew-cite-strings-with-petname (lst mew-cite-fields)
+  (let ((i 0)
+	(l mew-cite-fields)
+	(petname))
+    (catch 'loop
+      (while (car l)
+	(if (string-equal "From:" (car l))
+	    (throw 'loop i)
+	  )
+	(setq i (1+ i))
+	(setq l (cdr l))
+	)
+      )
+    (setq petname (cdr (mew-assoc-case-equal 
+			(mew-header-extract-addr (nth i lst))
+		  mew-petname-alist 0)))
+    (if petname (setcar (nthcdr i lst) petname)))
+  lst)
+
 (defun mew-cite-strings ()
   (let ((fields (mapcar (function mew-header-get-value) mew-cite-fields)))
     (setq fields (mapcar (function (lambda (x) (if (null x) "" x))) fields))
+    (if mew-use-petname
+	(setq fields (mew-cite-strings-with-petname fields mew-cite-fields))
+      )
     (apply (function format) mew-cite-format fields)
     ))
 
--
Yuuichi Teranishi (寺西裕一) Email: teranisi at example.com
Location: NTT Information and Communication Systems Laboratories
TEL: 0468-59-2839 FAX: 0468-59-2768 PHS: 050-106-7597
MyCar: RAV4J (23000km since Nov.1995)