[mew-dist 26523] Re: 漏洩防止機能

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 26522] 漏洩防止機能
Message-ID: <20050822.165722.58475864.kazu at example.com>
Date: Mon, 22 Aug 2005 16:57:22 +0900 (JST)

> 社内宛のメールを間違って外に出してしまうと、バッシングされる世の中とな
> りました。そこで、社内宛のメールか、社外宛のメールか、簡単に分かるよう
> にしました。
> 
> mew-my-domains に社内のドメインを定義して下さい。
> 
> 	(setq mew-my-domains '("mew.org" "example.jp"))
> 
> これに合致しない Draft モードのアドレスは、警告色となります。

試してみました。で、パッチ ^^;

(1) domain に関わらず、自分のメールアドレスは警告しない方が良い
    と思う。
(2) warning-fields に "Dcc:" と(ついでに) Reset-* を追加。
(3) 全然関係ないけど、mew-field-completion-switch に Resent-Fcc:
    が抜けていたのを発見。

です。

# 他にやらないといけないことがたまっている様な気がしますが、また、
# 今度。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-highlight.el
===================================================================
RCS file: /cvsmew/mew/mew-highlight.el,v
retrieving revision 1.34
diff -u -r1.34 mew-highlight.el
--- mew-highlight.el	22 Aug 2005 06:53:11 -0000	1.34
+++ mew-highlight.el	22 Aug 2005 09:51:43 -0000
@@ -111,15 +111,17 @@
 
 (defun mew-highlight-header-address-region (beg end)
   (let ((domains (mew-my-domains (mew-tinfo-get-case)))
-	overlay)
+	addr domain overlay)
     (when domains
       (save-excursion
 	(save-restriction
 	  (narrow-to-region beg end)
 	  (goto-char beg)
 	  (while (re-search-forward "[^\n\t, ]+@\\([^\n\t, ]+\\)" nil t)
-	    (unless (member (downcase (mew-match-string 1))
-			    (mew-my-domains (mew-tinfo-get-case)))
+	    (setq addr (downcase (mew-match-string 0)))
+	    (setq domain (downcase (mew-match-string 1)))
+	    (unless (or (member domain (mew-my-domains (mew-tinfo-get-case)))
+			(mew-is-my-address mew-regex-my-address-list addr))
 	      (setq overlay (mew-overlay-make (match-beginning 0) (match-end 0)))
 	      (overlay-put overlay 'face 'mew-face-header-warning))))))))
 
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.273
diff -u -r1.273 mew-vars.el
--- mew-vars.el	22 Aug 2005 06:53:11 -0000	1.273
+++ mew-vars.el	22 Aug 2005 09:51:43 -0000
@@ -1308,7 +1308,9 @@
 
 (defvar mew-scan-decode-fields (list mew-subj: mew-from: mew-to:))
 
-(defvar mew-draft-address-warning-fields (list mew-to: mew-cc: mew-bcc:))
+(defvar mew-draft-address-warning-fields
+  (list mew-to: mew-cc: mew-dcc: mew-bcc:
+	mew-resent-to: mew-resent-cc: mew-resent-dcc: mew-resent-bcc:))
 
 (defcustom mew-thread-column 28
   "A position where thread indentation is inserted
Index: mew-vars2.el
===================================================================
RCS file: /cvsmew/mew/mew-vars2.el,v
retrieving revision 1.149
diff -u -r1.149 mew-vars2.el
--- mew-vars2.el	22 Aug 2005 06:53:11 -0000	1.149
+++ mew-vars2.el	22 Aug 2005 09:51:43 -0000
@@ -232,6 +232,7 @@
     ("Resent-Cc:"   . mew-complete-address)
     ("Resent-Dcc:"  . mew-complete-address)
     ("Resent-Bcc:"  . mew-complete-address)
+    ("Resent-Fcc:"  . mew-complete-local-folder)
     ("Newsgroups:"  . mew-complete-newsgroups)
     ("Followup-To:" . mew-complete-newsgroups))
   "*Completion function alist concerned with the key."