🚀 go-pugleaf

	$@J?Ln(J> $@$*$*!"$1$C$3$&0&MQ$5$l$F$$$^$9$M!#(J

$@$=$&$_$?$$$G$9$M!#;H$C$F$$$k?M$O!"(JIn-reply-to $@%U%#(J$@!<%k%I$N$H$3$m$,(J JST
$@$K$J$C$F$$$k?M$,B?$$$N$G!"BgBN$o$+$j$^$9!#(J

$@;d$O!"%"%$%G%"$@$1$$$?$@$$$F!"(Jumerin$@$5$s$N(J timezone $@$r;H$C$FF1$8$3$H$r(J
$@<B8=$7$F$$$^$7$?!#(Jumerin$@$5$s$b$=$N$3$H$r0U<1$7$F$$$k$h$&$G!"(JGNUS $@$N(J 
unofficial $@HG(J 3.14.1 $@$G$O(J gnus-gmt-to-local $@$H$$$&4X?t$,MQ0U$5$l$F$$$F!"(J
$@%f!<%6!<$N9%$_$G(J hook $@$K=q(J$@$/$3$H$,2DG=$K$J$C$F$$$^$9!#(J

$@$o$?$7$O!"$A$g$C$H2~NI$7$F;H$C$F$$$^$9!#(J($@$A$J$_$K!"(J3.13 $@%Y!<%9$G$9!#(J)

in my ~/.emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq gnus-Article-prepare-hook
      '(lambda ()
	 (if (not gnus-have-all-headers)
	     (cond ((string-match "^local\\.\\|^ics\\.\\|^center\\.\\|^exp\\.\\|^osk\\.\\|^kansai\\.\\|fj\\."
				  gnus-newsgroup-name)
		    (gnus-gmt-to-local))
		   ((string-match "^soc\\.culture\\.french$"
				  gnus-newsgroup-name)
		    (gnus-gmt-to-local "MET"))
		   ((string-match "^comp\\.\\|^gnu\\.\\|^news\\.\\|^rec\\.\\|^soc\\.\\|^talk\\."
				  gnus-newsgroup-name)
		    (gnus-gmt-to-local "PST"))
		   ))))
(autoload 'gnus-gmt-to-local "gnus-gmt-to-local" nil t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(not gnus-have-all-headers) $@$N%A%'%C%/$r$$$l$F!"5-;v$r%;!<%V(J$@$9$k$H$-$O!"(J
$@85$NI=<((J(GMT)$@$N$^$^$K$J$k$h$&$K$7$F$$$^$9!#$HF1;~$K!"%U%)%m!<$9$k;~$N(J
In-reply-to: $@%U%#!<(J$@%k%I$O(J GMT $@I=<($K$J$j$^$9!#$=$l$H!"%K%e!<%9%0%k!<%W(J
$@$K$h$C$F!"%?%$%`%>!<%s$NI=<($rJQ$($F$$$^$9!#(J

	$@Ln(J$@O$(J> Date: Sun, 2 Feb 1992 12:38:10 GMT

	$@LnO$(J> $@$_$?$$$K(J Sun, $@$N$H$3$m$,A}$($F$$$?$N$G!"$&$^$/;H$($^$;(J$@$s(J
	$@LnO$(J> $@$G$7$?!#E,Ev$KD>$7$?$N$G$9$,!"@55,I=8=$r$h$/CN$i$J$$$N$G(J
	$@LnO$(J> $@$"$s$^$j4qNo$8$c$J$$$G$9!#(J

timezone.el $@$G$O!"$3$N%?%$%W$NI=8=$b%Q!<%9$G$-$^$9!#(J($@;d$N4D6-$G$O$=$s(J
$@$J$N$G$F$3$J$$$N$G!"$?$a$7$F$O(J$@$$$^$;$s!#(J)

gnus-gmt-to-local.el $@$r:G8e$K$D$1$F$*$-$^$9!#$3$l$O!"(JGNUS 3.14.1 $@$N(J 
gnusmisc.el $@$N(J $@4X?t(Jgnus-gmt-to-local $@$NItJ,$@$1$r@Z$j=P$7$F!"$9$3$7(J($@;d(J
$@$,(J)$@2~NI$r2C$($?$b$N$G$9!#(J

$@$A$J$_$K!"(Jtimezone.el $@$O(J GNUS 3.14.1 $@$^$?$O!"(J

	From: umerin@mse.kyutech.ac.jp (Masanobu UMEDA)
	Newsgroups: gnu.emacs.gnus,gnu.emacs.sources,fj.sources
	Subject: rmailsort.el, timezone.el: Rmail message sorter
	Message-ID: <UMERIN.90Dec11122235@yellow.mse.kyutech.ac.jp>
	Date: 11 Dec 90 03:22:35 GMT
	Lines: 483

$@$N$J$+$K!"(J$@F~$C$F$$$^$9!#(J

P.S.
	$@$3$N5-;v$N$J$+$N(J elisp code $@$GD9$$9T$,$"$j$^$9$N$G!"<u$1$H$C$?(J
	$@;~$K%A%g%s$.$l$F(J$@$$$J$$$+3N$+$a$F2<$5$$$M!#(J

--
$@8ENS(J $@5*:H(J ($@$3$P$d$7(J $@$N$j$d(J)	E-mail: nk@ics.osaka-u.ac.jp
	$@Bg:eBg3XBg3X(J$@1!(J $@4pAC9)3X8&5f2J(J ($@>pJs9)3XJ,Ln(J)
	$@")(J560 $@Bg:eI\K-Cf;TBT7s;3D.#1HV#19f(J
;----------------- gnus-gmt-to-local.el ---------------------------
(require 'timezone)
(defvar gnus-local-timezone "JST")

(defun gnus-gmt-to-local (&optional local)
  "Rewrite Date: field described in GMT to local in current buffer.
Optional 1st argument LOCAL specifies the default local timezone of the DATE.
If LOCAL is nil, the variable gnus-local-timezone is used for local time zone.
Intended to be used with gnus-Article-prepare-hook."
  (save-excursion
    (save-restriction
      (widen)
      (goto-char (point-min))
      (narrow-to-region (point-min)
			(progn (search-forward "\n\n" nil 'move) (point)))
      (goto-char (point-min))
      (while (re-search-forward "[0-9]+ [^ ,]+ [0-9]+ [0-9]+:[0-9:]+[ ]*\\'\\|[0-9]+ [^ ,]+ [0-9]+ [0-9]+:[0-9:]+[ ]*[-+a-zA-Z0-9]+\\|[^ ,]+ +[0-9]+ [0-9]+:[0-9:]+ [0-9]+\\|[^ ,]+ +[0-9]+ [0-9]+:[0-9:]+ [-+a-zA-Z0-9]+ [0-9]+"
			     nil t)
	(let ((buffer-read-only nil)
	      (date (buffer-substring (match-beginning 0) (match-end 0))))
	  (delete-region (match-beginning 0) (match-end 0))
	  (insert
	   (timezone-make-date-arpa-standard date nil
					     (or local gnus-local-timezone))
	   )))
      )))