[Mew-dist 03307] imget のときに たまったメールを出したいね

[Hisakazu Hada]

奈良のはだです。

ノートパソコンでメールを読んでる関係上、 imで queuing を yesにしてます
が、mew はそのままでは自動でqueueを吐いてくれません。
そすると、ときどき、朝書いたのに夕方までほっておかれるメールとかが
出来てしまいます。

  うっかりもののぼくはそういうことがよく起こって悲しかったのでした。
そこで、imget するときはネットワークにつながってるんだから、 
queue をそのタイミングで吐けばいいかなというパッチをあててみました。
＃ といっても 全部で３行  :-)

動作確認は win95上の mule-win32 で行いました。1.93b7です。

  imのqueueの場所を知る方法が判らなかったので defvar で
勝手に変数作っちゃってます。ごめんなさい。

もっとよい方法があれば教えていただければうれしいです。
実は emacs-lispはまだ20行も書いたことないのです。


-- はだひさかず


-------------- next part --------------
*** mew-scan.el
--- mew-scan.el.old
**************
*** 8,15
  nst mew-scan-version "mew-scan.el version 0.24")
  
  (defvar mew-im-queue-dir "~/.im/queue")
- 
- (require 'mew)
  
  (defun mew-summary-get (&optional arg)
    "Get +inbox asynchronously."
--- 8,13 -----
  nst mew-scan-version "mew-scan.el version 0.24")
  
  (require 'mew)
  
  (defun mew-summary-get (&optional arg)
    "Get +inbox asynchronously."
**************
*** 14,23
  ummary-get (&optional arg)
    "Get +inbox asynchronously."
    ;; send queue if exists
-   (if (nth 2 (directory-files mew-im-queue-dir))
-       (mew-summary-flush-queue))
-   ;; 
-   (interactive "P")
    (if (get-buffer mew-inbox-folder)
        (switch-to-buffer mew-inbox-folder)
      (mew-summary-folder-create mew-inbox-folder))
--- 12,17 -----
  -summary-get (&optional arg)
    "Get +inbox asynchronously."
    (interactive "P")
    (if (get-buffer mew-inbox-folder)
        (switch-to-buffer mew-inbox-folder)
      (mew-summary-folder-create mew-inbox-folder))