[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 メーリングリストの案内