Re: mew-shimbun bug report

[Hideyuki SHIRAI ( 白井秀行 ) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: SUGITA Toshinori <sugita@d-pad.co.jp> さん曰く
Subject: [emacs-w3m:01969] mew-shimbun bug report
Message-ID: <20011030.150000.424245475.sugita@d-pad.co.jp>
Date: Tue, 30 Oct 2001 15:00:00 +0900 (JST)

杉田> mew-shimbun.el で気づいたことがひとつあるので、報告しておきます。

杉田> アーティクルを開いたときにMessageBufferでカーソルがpoint-maxにあります。

ごめんなさい。ぼくは他の設定に隠れていて気付きませんでした。
これで、直るでしょうか？

# けど、ぼくの場合は point-min だったんだけど。

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)

Index: mew-shimbun.el
===================================================================
RCS file: /cvsroot/w3m-shirai/emacs-w3m/shimbun/mew-shimbun.el,v
retrieving revision 1.46
diff -c -u -r1.46 mew-shimbun.el
--- mew-shimbun.el	2001/10/30 00:16:59	1.46
+++ mew-shimbun.el	2001/10/30 06:21:14
@@ -200,7 +200,6 @@
 If called with '\\[universal-argument]', goto folder to have few new messages."
   (interactive "P")
   (let ((flds mew-folder-list)
-	(regex (mew-folder-regex (concat mew-shimbun-folder "/")))
 	sbflds alst fld cfile)
     (save-excursion
       (dolist (fld flds)
@@ -251,7 +250,7 @@
   (when (mew-summary-exclusive-p)
     (mew-summary-only
      (let ((fld (mew-summary-folder-name))
-	   lst shimbun server group range)
+	   lst server group range)
        (if (not (mew-shimbun-folder-p fld))
 	   (message "This command can not execute here")
 	 (setq lst (assoc (substring fld (match-end 0)) mew-shimbun-groups))
@@ -372,7 +371,7 @@
     (mew-summary-only
      (let* ((fld (mew-summary-folder-name))
 	    (msgs (list (mew-summary-message-number)))
-	    id-msgs lst shimbun server group range)
+	    id-msgs lst server group range)
        (if (not (mew-shimbun-folder-p fld))
 	   (message "This command can not execute here")
 	 (setq lst (assoc (substring fld (match-end 0)) mew-shimbun-groups))
@@ -413,7 +412,7 @@
      (let* ((fld (mew-summary-folder-name))
 	    (begend (cons (point-min) (point-max)))
 	    id-msgs begmsg endmsg
-	    lst shimbun server group range)
+	    lst server group range)
        (if (not (mew-shimbun-folder-p fld))
 	   (message "This command can not execute here")
 	 (setq lst (assoc (substring fld (match-end 0)) mew-shimbun-groups))
@@ -679,14 +678,16 @@
        (mew-shimbun-remove-unseen-one fld vfld msg file win nil))))
 
 (defun mew-shimbun-remove-unseen-one (fld vfld msg file win all)
-  (let ((det nil) cbuf)
+  (let ((msgbuf (mew-buffer-message))
+	(det nil) cbuf)
     (unless all
-      ;; messge buffer
-      (mew-window-configure 'message)
-      (save-excursion
-	(goto-char (point-min))
-	(when (search-forward "X-Shimbun-Status: unseen\n" (mew-header-end) t)
-	  (setq det t))))
+      (when (and msgbuf (get-buffer msgbuf))
+	;; message buffer
+	(save-excursion
+	  (set-buffer msgbuf)
+	  (goto-char (point-min))
+	  (when (search-forward "X-Shimbun-Status: unseen\n" (mew-header-end) t)
+	    (setq det t)))))
     (when (or all det)
       (with-temp-buffer
 	(mew-insert-message fld msg mew-cs-text-for-read nil)