[Mew-dist 1840] suppress messages when mew-summary-exec

[SAKAI Kiyotaka]

summary mode で x (mew-summary-exec) を実行すると

  No more message         (一番最後のメールで x を実行したときのみ)
  Wrote /home/ksakai/Mail/.mew-refile-from-alist
  Wrote /home/ksakai/Mail/.mew-refile-msgid-alist
  Wrote /home/ksakai/Mail/inbox/.mew-cache

というメッセージが一瞬、minibuffer に表示されますが、欝陶しいので、こ
れらを抑制するためのパッチです。

# これらはユーザーには知らせる必要のない情報だと思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.1
diff -u -r1.1 mew-summary.el
--- mew-summary.el	1997/09/01 04:41:01	1.1
+++ mew-summary.el	1997/09/01 11:06:21
@@ -550,7 +550,7 @@
   (let ((cache (mew-expand-folder (buffer-name) mew-summary-cache-file)))
     (if (file-writable-p cache)
         (progn
-          (write-region (point-min) (point-max) cache)
+          (write-region (point-min) (point-max) cache nil 'no-msg)
           (setq mew-summary-buffer-folder-cache-time
                 (nth 5 (file-attributes cache)))
           ))
@@ -968,7 +968,7 @@
    )
   )
 
-(defun mew-summary-message-down ()
+(defun mew-summary-message-down (&optional nomsg)
   (forward-line)
   (cond 
    ((re-search-forward
@@ -977,6 +977,8 @@
     (beginning-of-line)
     (setq mew-summary-buffer-direction 'down)
     t)
+   (nomsg
+    nil)
    (t 
     (message "No more message")
     nil)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-refile.el,v
retrieving revision 1.1
diff -u -r1.1 mew-refile.el
--- mew-refile.el	1997/09/01 10:45:14	1.1
+++ mew-refile.el	1997/09/01 11:02:03
@@ -434,11 +434,10 @@
 	      (setq n (1- n)))
 	  (setcdr alist nil)
 	  (setq pointer nil)))
-      (set-visited-file-name fullname)
       (mew-erase-buffer)
       (prin1 alist tmp-buf)
       (princ "\n" tmp-buf)
-      (save-buffer 0)
+      (write-region (point-min) (point-max) fullname nil 'no-msg)
       (kill-buffer tmp-buf))
     ))
 
-------------- next part --------------
===================================================================
RCS file: RCS/mew-mark.el,v
retrieving revision 1.1
diff -u -r1.1 mew-mark.el
--- mew-mark.el	1997/09/01 10:31:01	1.1
+++ mew-mark.el	1997/09/01 11:06:29
@@ -511,7 +511,7 @@
 	(mew-refile-guess-save)
 	(let ((next t))
 	  (if (mew-summary-marked-p)
-	      (mew-summary-message-down)) ;; point moves
+	      (mew-summary-message-down t)) ;; point moves
 	  (if (mew-summary-message-number)
 	      (setq next (mew-summary-message-number)))
 	  (mew-decode-syntax-delete)