🚀 go-pugleaf

>>>>> On 10 Jan 93 00:31:22 JST,
>>>>> cabbage@kki.esi.yamanashi.ac.jp (Masami Ueno) said:


cabbage> $B$5$i$K(J$B$D$$$G$G$9$,!$;d$O%a%$%i!<$G$b$3$N$h$&$J%5%^%j!<(J
cabbage> $BI=<($r9T$J$C$F$/$l$k$b$N$,$J$$$+$J$!$H;W$C$F(J$B$$$k$N$G(J
cabbage> $B$9$,!$$I$J$?$+$4B8CN$J$$$G$9$+!)(J


gnus.el $B$+$i@Z$j$H$C$F$-$F0J2<$N$h$&$K$9$k$H$$$&(J$B$N$OG!2?$G$7$g(J
$B$&!#(J(defun mh-gnus () (setq gnus-nntp-server ":Mail") (gnus))
$B$F$J46$8$G$b$h$$$N$G$9$,(J$B!"(Jin-mh-gnus $B$N%U%i%0$rN)$F$F$*$$$F(J 
hook $B$G8+$?$+$C$?$b$s$G!#(J

$B$G$b(J gnus $BIwL#(J mh-e $B$r;H$C$F$$$k$N$GKX(J$B$s$I;H$C$F$$$^$;$s!#$=$l(J
$B$K(J In-reply-to $B$r$_$F(J thread $B:n$k$H$$$&$3$H$OBgDq$N>l9g$K$*$$(J
$B$F(J "Cc: ($B<+J,(J)" $B$9$k$+!"(J"Fcc: ($B$I$C$+(J)" $B$9$k$+$H$$$&$3$H$G$9$+(J
$B$i!"<+J,$N=P$9%a!<%k$N%3%T!<$rC`0l<h$C$F$*$+$J$$;d$K(J$B$H$C$F$O$[(J
$B$\L5MQ$ND9J*$K$J$C$F$$$^$9(J. ^_^;


--snip--

(setq in-mh-gnus nil)	; gmt-to-jst.el $B$r;H$&$H(J$B$-$N%A%'%C%/MQ$K(J
(setq mh-gnus-nntp-server ":Mail")

(defun mh-gnus (&optional confirm)
  "Browse ~/Mail directory with GNUS (using mhspool.el)"
  (interactive "P")
  (unwind-protect
      (progn
	(switch-to-buffer (get-buffer-create gnus-Group-buffer))
	(gnus-Group-mode)
	(setq true-gnus-nntp-server gnus-nntp-server)
	(setq gnus-nntp-server mh-gnus-nntp-server)
	(setq in-mh-gnus t)
	(gnus-start-news-server confirm))
    (if (not (gnus-server-opened))
	(gnus-Group-quit)
      ;; NNTP server is successfully open. 
      (setq mode-line-process (format " {%s}" gnus-nntp-server))
      (let ((buffer-read-only nil))
	(erase-buffer)
	(gnus-Group-startup-message)
	(sit-for 0))
      (run-hooks 'gnus-Startup-hook)
      (gnus-setup-news-info)
      (if gnus-novice-user
	  (gnus-Group-describe-briefly)) ;Show brief help message.
      (gnus-Group-list-groups nil)
      )
    (setq gnus-nntp-server true-gnus-nntp-server)
    (setq in-mh-gnus nil)
    )
  )

--
  Hisashi MINAMINO <hry@efreet.osakac.ac.jp>, Asano lab (Comp Geometry),
  Dept of Applied Electronic Eng., Osaka Electro-Communication University