[Mew-dist 08602] mew-current-set in mew-summary-display-asis

[OBATA Noboru]

小幡です。

`,' (mew-summary-display-asis) を操作していて気がついたのですが、
次のようにするとエラーが出ます。mew-summary-display-asis の中で
mew-current-set をしていないためではないかと思います。

- Mew を起動。

- +inbox の Summary モードで、(n や p ではなく) C-n や C-p を使っ
  て適当なメッセージにカーソルを合わす。

- , (mew-summary-display-asis) を押す。

- C-x o でメッセージ領域へ移動。

- h (mew-message-goto-summary) を押すと、次のようなエラーとなり
  ます。あるいは(初めてでない場合は)、Summary の間違ったメッセー
  ジの上にカーソルが飛びます。

Signaling: (wrong-type-argument stringp nil)
  get-buffer(nil)
  mew-message-goto-summary()
* call-interactively(mew-message-goto-summary)

-- 
小幡 昇 (obata at example.com)

意味も分からずに書いたパッチ:

Index: mew-summary.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-summary.el,v
retrieving revision 1.1.1.8
diff -u -r1.1.1.8 mew-summary.el
--- mew-summary.el	1999/04/21 00:43:41	1.1.1.8
+++ mew-summary.el	1999/04/22 01:51:32
@@ -840,6 +840,11 @@
 	   (let ((zmacs-regions nil)
 		 (buffer-read-only nil))
 	     (mew-summary-display-preamble)
+             ;;
+             (mew-current-set 'message (cons fld msg))
+             (mew-current-set 'part nil)
+             (mew-current-set 'cache nil)
+             ;;
 	     (if (and (mew-folder-localp fld)
 		      (> (mew-file-size file) mew-file-max-size))
 		 (setq size (1- mew-file-max-size)))