[mew-dist 20399] Re: Cc: mew-mail-address-list

NAKAMURA Motonori motonori at example.com
2002年 2月 24日 (日) 09:36:09 JST


>>>>> On Mon, 04 Feb 2002 13:05:09 +0900 (JST), Kazu Yamamoto (山本和彦) <kazu at example.com> said:

> mew-scan-form-mark() で Cc: みていないから、だめでしょう。

kazu> ううう、これどうしましょう?

kazu> (1) Cc: も見る。(ただし、3 行まで)
kazu> (2) オプションで、Cc: も見る。
kazu> - オプション名は?
kazu> - デフォルト値は?
kazu> (3) Cc: は見ない。

とりあえず、(1) を実現するパッチを自分であてて幸せにひたっています。

P.S.

mew な emacs を複数立ち上げて、同じフォルダをさわってしまったときに、
古いほうで扱っていたマーク(o/D)が失効するのを避けることはできないのかな。
(-nw で、異なる端末から同じ emacs がさわれるのでもいいけれど。)

---
中村 素典 / 京都大学 総合情報メディアセンター
motonori at example.com


diff -u mew-2.2rc4/mew-scan.el /home/motonori/src/mew-2.2rc4/mew-scan.el
--- mew-2.2rc4/mew-scan.el	Wed Feb  6 15:53:09 2002
+++ /home/motonori/src/mew-2.2rc4/mew-scan.el	Sat Feb 23 22:26:43 2002
@@ -33,7 +33,8 @@
 	  (mew-sinfo-set-scan-id (cons id (mew-sinfo-get-scan-id))))))
     (when mew-scan-form-mark-review
       (let* ((mew-header-max-depth nil)
-	     (to (mew-addrstr-parse-address-list (MEW-TO))))
+	     (to (append (mew-addrstr-parse-address-list (MEW-TO))
+	                 (mew-addrstr-parse-address-list (MEW-CC)))))
 	(catch 'loop
 	  (while to
 	    (if (mew-is-my-address mew-regex-my-address-list (car to))
diff -u mew-2.2rc4/mew-vars.el /home/motonori/src/mew-2.2rc4/mew-vars.el
--- mew-2.2rc4/mew-vars.el	Thu Feb 21 11:58:41 2002
+++ /home/motonori/src/mew-2.2rc4/mew-vars.el	Sat Feb 23 22:18:37 2002
@@ -783,7 +783,7 @@
   :type 'boolean)
 
 (defcustom mew-scan-fields
-  '("Folder:" "Filename:" "Subject:" "Date:" "From:" "To:"
+  '("Folder:" "Filename:" "Subject:" "Date:" "From:" "To:" "Cc:"
     "Content-Type:" "Message-Id:" "X-Mew-UIDL:"
     "In-Reply-To:" "References:")
   "*A list which specifies mewls's output.
@@ -796,7 +796,7 @@
                      (repeat string))))
 
 (defvar mew-scan-fields-alias
-  '("FLD" "NUM" "SUBJ" "DATE" "FROM" "TO" "CT" "ID" "UIDL" "IRT" "REF")
+  '("FLD" "NUM" "SUBJ" "DATE" "FROM" "TO" "CC" "CT" "ID" "UIDL" "IRT" "REF")
   "*A list of aliases for 'mew-scan-fields'.
 Functions called MEW-FOO will be defined according to this variable.")
 



Mew-dist メーリングリストの案内