🚀 go-pugleaf

$@2,It(J$@!w5~Bg!&9)!&>pJs$H?=$7$^$9!#(J
mh-e $@$K$I$C$W$j?;$+$C$F$$$F!"(Jvm $@$O?($C$?$3$H$,$"$j$^$;$s!#(J
$@$b$A$m$s@8$N(J MH $@$b9%$-$G$9(J:-) $@$G!"$I$s$I$sK\6Z$+$i$O$J$l$^$9$,!"(J

In article <1822@kurims.kyoto-u.JUNET>
	inoue@kusm.kyoto-u.ac.jp (Inoue Yoshinari) writes:

> mh-e $@$G$O!"<!$N$h$&$K(J .emacs $@$K=q$$$F$*$1$P%5%V%U%)%k%@(J$@$,;H$($?$H;W$$$^$9!#(J

> (setq mh-recursive-folders t)

$@!t(J $@$3$l$r$9$k$H$?$@$G$5$(CY$$(J mh-e $@$N(J folder $@=8(J$@$a$,M>7WCY$/$J$j$^$9(J ;_;

$@;DG0$J$,$i(J mh-list-folders $@$O3,AX%U%)%k%@$r8+$F$/$l$J$$$N$G!"(J
$@$A$g$C$H2~B$$7(J$@$?(J mh-list-subfolders $@$H$$$&$N$,$"$j$^$9!#(J

(defun mh-list-subfolders (folder)
  "List mail subfolders."
  (interactive (list (mh-prompt-for-folder "Folder" "+News" t)))
  (with-output-to-temp-buffer " *mh-temp*"
    (save-excursion
      (switch-to-buffer " *mh-temp*")
      (erase-buffer)
      (message "listing subfolders...")
      (mh-exec-cmd-output "folder" nil "-recurse" folder)
      (goto-char (point-min))
      (message "listing subfolders ...done"))))

mh-visit-folder $@$K<j$r$$$l$?!"@8$N(J MH $@$HF1MM(J folder $@$K%G%#%l%/%H%j$r;X(J
$@Dj$G$-$k(J mh-visit-directory $@$H$$$&$N$b$"$j$^$9!#$3$l$GNc$($P(J news spool 
$@$J$I$r(J folder $@$H$7$FFI$a$^$9!#(J

(defun mh-visit-directory (dirname range config)
  "Visit DIRECTORY and display RANGE of messages."
  (interactive (list (read-file-name "Visit directory +"
				     nil default-directory nil)
		     (read-string "Range [all]? ")
		     (current-window-configuration)))
  (setq dirname (expand-file-name dirname))
  (if (not (eq system-type 'vax-vms))
      (setq dirname (file-name-as-directory dirname)))
  (if (not (file-directory-p dirname))
      (error "%s is not a directory" dirname)
    (progn
     (setq folder (concat "+" dirname))
     (mh-scan-folder folder (if (equal range "") "all" range))
     (setq mh-previous-window-config config))))

> $@!t(J $@LLE]$J$3(J$@$H$r!"#U#N#I#X$N6/NO$J%D!<%k$G$d$l$k$N$,(J *mh* $@$N$$$$$H$3$m(J

$@!t(J $@$=$&;W$C$F$$$m$$$m(J script $@$r=q$/$H!"$h(J$@$/D4$Y$k$?$i(J MH $@$NCf$K$O$A$c$s$H(J
$@!t(J $@$=$&$$$&5!G=$,$"$C$?!"$H$$$&$3$H$,B?$$;d$G$9(J ^_^;
-----
$@2,It<wCK!w(J$@5~ETBg3X9)3XIt>pJs9)3X65<<7W;;5!%=%U%H%&%'%"9V:B(J