🚀 go-pugleaf

--Multipart_Wed_Mar_10_17:28:38_1999-1
Content-Type: text/plain; charset=ISO-2022-JP

$B$3$s$K$A$O;32,$G$9!#(B

>>>>> In <TAKEHARA.99Mar10004434@remus.dti.ne.jp> 
>>>>>	takehara@remus.dti.ne.jp (takehara) wrote:

$BC]86$5$s(B> $BIaCJ!"<+Bp$G%a!<%k$NAw<u?.$K(B Mule for win32 V.122 $BIUB0$N(B
$BC]86$5$s(B> mail-mode,rmail-mode$B$r;HMQ$7$F$*$j$^$9!#$3$l$r2q<R$G$b;H$*$&(B
$BC]86$5$s(B> $B$H;W$C$F;n$7$?(B($B<+J,08$F$KAw?.$7$?(B)$B$H$3$m!"(BDate:$BMs$H(B
$BC]86$5$s(B> Message-Id:$BMs$,L5$$$3$H$K5$$E$-$^$7$?!#(B

[...]

$BC]86$5$s(B> $B$=$3$G<ALd$J$N$G$9$,!"(BMule$B$N(Bmail-mode$B$K$*$$$F!"(BMule$BB&$G(B
$BC]86$5$s(B> Date:$B$H(BMessage-Id:$BMs$rIU$1$k$3$H$O2DG=$J$N$G$7$g$&$+!#(B

$B%a!<%k$r<B:]$KAw?.$9$kD>A0$KI>2A$5$l$k(B mail-send-hook $B$r;H$($P2DG=$G$7$g(B
$B$&!#0J2<$N%W%m%0%i%`$r(B .emacs $B$J$I$K=q$-9~$s$G;n$7$F$_$F2<$5$$!#(B

;; Unique id $B$N:n$jJ}$O(B VM $B$+$i%3%T!<$7$^$7$?!#(B

--Multipart_Wed_Mar_10_17:28:38_1999-1
Content-Type: text/plain; charset=ISO-2022-JP

;; $B$9$G$K@_Dj$5$l$F$$$l$P$3$N0l9T$OITMW$G$9!#(B
(setq mail-host-address "foobaa.co.jp")

(defun _mail-insert-id-and-date-fields ()
  "Insert Message-ID and Date fields. Existing fields will be removed first."
  (save-excursion
    (save-restriction
      (widen)

      ;; Narrow to header.
      (goto-char (point-min))
      (narrow-to-region
       (point)
       (if (search-forward (concat "\n" mail-header-separator "\n") nil t)
	   (1+ (match-beginning 0))
	 (point-max)))

      ;; Delete existing fields.
      (goto-char (point-min))
      (let ((case-fold-search t))
	(while (re-search-forward "^Message-ID:\\|^Date:" nil t)
	  (delete-region (match-beginning 0)
			 (goto-char
			  (if (re-search-forward "^[^\t\n ]" nil t)
			      (match-beginning 0)
			    (point-max))))))

      ;; Insert Date and unique Message-ID fields.
      (goto-char (point-min))
      (require 'timezone)
      (let ((now (current-time)))
	(insert "Date: "
		(timezone-make-date-arpa-standard
		 (current-time-string now) (current-time-zone now))
		"\n")
	(insert (format "Message-ID: <%d.%d.%d.%d@%s>\n"
			(car now) (nth 1 now) (nth 2 now)
			(random 1000000)
			mail-host-address)))
      )))

(add-hook 'mail-send-hook '_mail-insert-id-and-date-fields)

--Multipart_Wed_Mar_10_17:28:38_1999-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>

--Multipart_Wed_Mar_10_17:28:38_1999-1--