[Mew-dist 05065] Re: citation

[Hideyuki SHIRAI]

白井です。

From: Hideyuki SHIRAI <Shirai at example.com> 曰く
Subject: [Mew-dist 05064] Re: citation
Message-ID: <19980615191343A.shirai at example.com>
Date: Mon, 15 Jun 1998 19:14:05 +0900

白井> kazu> そこで、すごくいい加減ですが、frame local variable を
白井> kazu> 模倣して解決しました。
白井> 
白井> mew-cite-prefix-username() も有効にする一行パッチです。

マルチパートの(Message/Rfc822ではない)Text/Plain のパートで"A"を
するとエラーになってしまうのでその対策です。

……しかし……

-------------- next part --------------
こういうパートを表示しているときに、"A"や"C-cC-y"しても
mew-cite-fields で定義された内容を持って来てくれないので、安易な
対策です。

しかし、(mew-cite-prefix-usernameも同様ですが)弱点が二つあります。

1. mew-cite-fields の一番目の要素に "Subject:" のような必須でな
い(?)ヘッダを指定していると、とってもまずい。

2. 以下の様なメールの『2.1』のパートで"A"すると

    8 M06/16/1998    4K To:Shirai at example.com 実験
     2  Message/Rfc822
     2.1  Text/Plain(iso-2022-jp)

『2  Message/Rfc822』のパートではなく、『8 M06/16/1998』の方を見
に行ってしまう。

という気休め程度のパッチです。^^;;;

# うまく、直前の Message/Rfc822 のパートを見付ける方法がわかりま
# せんでした。
-------------- next part --------------
--- mew-draft.el.orig	Tue Jun 16 13:49:24 1998
+++ mew-draft.el	Tue Jun 16 13:01:15 1998
@@ -676,6 +676,9 @@
 
 (defun mew-cite-strings ()
   (let ((fields (mapcar (function mew-header-get-value2) mew-cite-fields)))
+    (if (car fields)
+	()
+      (setq 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))
@@ -1054,7 +1057,8 @@
   "A good candidate for mew-cite-prefix-function.
 The citation style is \"from_address> \", e.g. \"kazu> \""
   (let ((addr (mew-header-extract-addr
-	       (mew-header-get-value2 "From:")))
+	       (or (mew-header-get-value2 "From:")
+		   (mew-header-get-value "From:"))))
 	petname prefix)
     (if (and mew-use-petname mew-petname-alist
 	     (setq petname