[Mew-dist 11933] Re: mew-1.94.2pre6.tar.gz

[Koga Youichirou]

こが:
> ならばこれを当てて 1.94.2 (pre?) も…

しまった。これくらいしておかないと駄目か。

--- mew-vars.el.ORG	Wed Dec 22 12:08:54 1999
+++ mew-vars.el	Fri Dec 24 13:54:02 1999
@@ -35,6 +35,9 @@
 (defconst mew-dcc:  "Dcc:")
 (defconst mew-fcc:  "Fcc:")
 
+(defconst mew-resent-bcc:   "Resent-Bcc:")
+(defconst mew-resent-dcc:   "Resent-Dcc:")
+
 (defconst mew-message-id: "Message-Id:")
 (defconst mew-references:  "References:")
 (defconst mew-in-reply-to: "In-Reply-To:")
@@ -116,6 +119,8 @@
 	(list mew-reply-to:      'mailbox    'struct)
 	(list mew-resent-to:     'mailbox    'struct)
 	(list mew-resent-cc:     'mailbox    'struct)
+	(list mew-resent-bcc:    'mailbox    'struct)
+	(list mew-resent-dcc:    'mailbox    'struct)
 	(list mew-resent-from:   'mailbox    'struct)
 	(list mew-mv:            'mime       'struct)
 	(list mew-subj:          'text       'text)
@@ -664,19 +669,22 @@
 (defvar mew-fields
   (list mew-from: mew-to: mew-cc: mew-subj: mew-dcc: mew-fcc: mew-bcc:
 	mew-reply-to: mew-followup-to: mew-newsgroups: mew-config:
-	mew-resent-to: mew-resent-cc: mew-resent-from:)
+	mew-resent-to: mew-resent-cc: mew-resent-bcc: mew-resent-dcc:
+	mew-resent-from:)
   "*Completion field list in Draft mode.")
 
 (defvar mew-field-completion-switch
-  '(("To:"        . mew-complete-address)
-    ("Cc:"        . mew-complete-address)
-    ("Dcc:"       . mew-complete-address)
-    ("Bcc:"       . mew-complete-address)
-    ("Reply-To:"  . mew-complete-address)
-    ("Fcc:"       . mew-complete-folder)
-    ("Resent-To:" . mew-complete-address)
-    ("Resent-Cc:" . mew-complete-address)
-    ("Config:"    . mew-complete-config))
+  '(("To:"          . mew-complete-address)
+    ("Cc:"          . mew-complete-address)
+    ("Dcc:"         . mew-complete-address)
+    ("Bcc:"         . mew-complete-address)
+    ("Reply-To:"    . mew-complete-address)
+    ("Fcc:"         . mew-complete-folder)
+    ("Resent-To:"   . mew-complete-address)
+    ("Resent-Cc:"   . mew-complete-address)
+    ("Resent-Dcc:"  . mew-complete-address)
+    ("Resent-Bcc:"  . mew-complete-address)
+    ("Config:"      . mew-complete-config))
   "*Completion function alist concerned with the key.")
 
 (defvar mew-field-circular-completion-switch
@@ -687,6 +695,8 @@
     ("Reply-To:"    . mew-circular-complete-domain)
     ("Resent-To:"   . mew-circular-complete-domain)
     ("Resent-Cc:"   . mew-circular-complete-domain)
+    ("Resent-Dcc:"  . mew-complete-address)
+    ("Resent-Bcc:"  . mew-complete-address)
     ("From:"        . mew-circular-complete-from)
     ("Resent-From:" . mew-circular-complete-from)
     ("Config:"      . mew-circular-complete-config))
@@ -699,7 +709,9 @@
     ("Bcc:"       . mew-expand-address)
     ("Reply-To:"  . mew-expand-address)
     ("Resent-To:" . mew-expand-address)
-    ("Resent-Cc:" . mew-expand-address))
+    ("Resent-Cc:" . mew-expand-address)
+    ("Resent-Dcc:"  . mew-complete-address)
+    ("Resent-Bcc:"  . mew-complete-address))
   "*Expansion function alist concerned with the key.")
 
 ;;

----
こがよういちろう