[Mew-dist 07675] Re: things to do

[Kazumi HARA]

はら＠リコー です。

Wed, 24 Feb 1999 13:15:30 +0900 頃
Kazu Yamamoto (山本和彦) <kazu at example.com>さんが書かれた
[ [Mew-dist 07666] things to do ] に関して…

> 	- imget で +inbox 以外にメールを取って来る人のためのハック。
> 	  (僕の理解は正しいでしょうか？ > はらさん)

00changes の todo リストで priority が低位に設定されていた(と思ってま
した)ので、のんびりお待ちしておりました (^^;;
# 以前の mew-dist でのお話で気持ちは伝わっていると思っています :-)

念のため、*今* 私が汚く変えているやり方が、(恥ずかしながら,,,, ^^;;)
---------------------------------------------------------------
--- mew-scan.el.orig	Sat Feb 13 12:44:05 1999
+++ mew-scan-hara.el	Wed Feb 17 14:20:33 1999
@@ -103,9 +103,20 @@
 	  (let ((process-connection-type mew-connection-type1))
 	    (cond
 	     ((string-match mew-prog-imget prog)
+;;;
+;;;  Switch inbox folder with Config Value
+;;;
 	      (if (string= mew-config-imget mew-config-default)
-		  (message "Getting %s ..." folder)
-		(message "Getting %s (%s)..." folder mew-config-imget)))
+		   (message "Getting %s ..." folder))
+	      (if (string= mew-config-imget "spiel")
+		  (progn
+		    (if (get-buffer "+inboxsp")
+			(switch-to-buffer "+inboxsp")
+		      (mew-summary-folder-create "+inboxsp"))
+		    (mew-summary-ls)
+		    (message "Getting %s (%s)..." "+inboxsp" mew-config-imget))))
+;;
+;;  end here
 	     ((string-match mew-prog-imls prog)
 	      (message "Listing %s ..." folder)
 	      (if (or (equal 'erase (car (cdr range)))

-----------------------------------------------------------------

って感じですので、
・mew-inbox-folder (InboxFolder) が Config に応じて切り替えられる
事が出来ればありがたいです。

つたない知識を基に、自分が対応しようとしていたヘナチョコ・アイデアとし
ては ~/.emacs で

(setq  mew-config-imget-alist
  '(("kollege" . "+inboxko")
    ("spiel"   . "+inboxsp")
    ("default" . "+inbox")))

みたいなものをでっち上げて、うまい事やろうと思っては見たものの、時間も
無く、サクサクって書けないので、楽な方へ傾いちゃってます (^^;;

よろしくお願いします。m(__)m

--
はらかずみ  < hara at example.com >