[Mew-dist 17179] Get back to Summary from Message.

[Hideyuki SHIRAI ( 白井秀行 )]

message で "h" すると summary に戻りますが、part を表示していて
も一番親に戻ってしまうので、message に表示中の part に戻るように
するパッチです。

# mew-prog-xxx はまだなんにも見直していない。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-message.el.~1.17.~	Wed Apr 11 20:11:41 2001
+++ mew-message.el	Fri Apr 20 16:50:57 2001
@@ -125,11 +125,21 @@
   "Get back to Summary mode."
   (interactive)
   (let* ((fld (mew-minfo-get-summary))
-	 (msg (mew-current-get-msg (mew-frame-id))))
+	 (msg (mew-current-get-msg (mew-frame-id)))
+	 (part (mew-current-get-part (mew-frame-id))))
     (if (not (get-buffer fld))
 	(message "No Summary mode for %s" fld)
       (mew-pop-to-buffer fld)
-      (if msg (mew-summary-jump-message msg)))))
+      (cond
+       ((and msg part (mew-decode-syntax-p))
+	(setq part (concat "^.. +"
+			   (regexp-quote (mapconcat 'int-to-string part "."))
+			   " "))
+	(goto-char (mew-decode-syntax-begin))
+	(re-search-forward part (mew-decode-syntax-end) t)
+	(beginning-of-line)
+	(mew-summary-display nil))
+       (msg (mew-summary-jump-message msg))))))
 
 (defun mew-message-reply ()
   "Answer to this message. A new draft is prepared in Draft mode.