[Mew-dist 04763] mew-ext

[OKUNISHI Fujikazu]

;; [ボソ]	RFC2045, 2046 を眺めていたところ、正しくはこう↓である
;; ような気がするのですが、

--- mew-ext.el.orig	Tue May  5 20:50:54 1998
+++ mew-ext.el	Wed May 20 00:26:32 1998
@@ -196,7 +196,7 @@
       (setq ct (mew-input-type "Type for %s (%s): " name ct
 			       mew-mime-content-type-list))
       (mew-header-insert-here mew-ct: ct)
-      (mew-header-insert-here "Message-ID:" (mew-create-message-id))
+      (mew-header-insert-here "Content-ID:" (mew-ext-create-content-id)) ;; RFC2046 "5.2.3. External-Body Subtype"
       (insert "\n")
       (if (not (string= access-type "mail-server"))
 	  () ;; message-body is not necessary
@@ -207,7 +207,7 @@
       (write-file filename)
       )
     (kill-buffer buf)
-    (cons mew-ct-ext (cons (format "access-type=\"%s\"" access-type) ret))
+    (cons mew-ct-ext (cons (format "access-type=%s" access-type) ret))
     ))
 
 (defun mew-ext-encode-ftp ()
@@ -522,10 +522,10 @@
     (if (and initial (string= value "")) initial value)
     ))
 
-(defun mew-create-message-id ()
+(defun mew-ext-create-content-id ()
   ;; this is not unique if used with very short interval.
   ;; but it's ok
-  (format "%s.%s.%s@%s" (nth 0 (current-time)) (nth 1 (current-time)) 
+  (format "<%s.%s.%s@%s>" (nth 0 (current-time)) (nth 1 (current-time)) 
 	  (emacs-pid) (system-name))
   )


;; やっぱり「気がする」だけでしょうかねえ? (^_^; >/dev/null 2>&1

--ふ