[mew-dist 24320] Re: mew-refile-view.el 復活

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 24313] mew-refile-view.el 復活 (was: mew-nmzでzp,znを動かすパッチ)
Message-ID: <20040105.122617.144853384.shirai at example.com>
Date: Mon, 05 Jan 2004 12:26:17 +0900 (JST)

> というわけで、mew-refile-view.el も Mew 4 対応しました。

thread で refile-view したときに indent を消すようにしました。

# あと、2003年問題 ^^;;;

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-refile-view.el.orig	Tue Jan  6 20:18:14 2004
+++ mew-refile-view.el	Tue Jan  6 14:23:09 2004
@@ -2,11 +2,11 @@
 
 ;; Author:  Takashi P.KATOH <p-katoh at example.com>
 ;; Created: Oct 22, 1998
-;; Revised: Jan 05, 2003
+;; Revised: Jan 06, 2004
 
 ;;; Code:
 
-(defconst mew-refile-view-version "mew-refile-view.el version 0.06")
+(defconst mew-refile-view-version "mew-refile-view.el version 0.07")
 
 (require 'mew)
 (if mew-xemacs-p (require 'easymenu))
@@ -179,9 +179,17 @@
 	     ;; Mew4
 	     (goto-char (point-min))
 	     (when (re-search-forward (mew-regex-sumsyn-msg (int-to-string num)) nil t)
-	       (beginning-of-line)
-	       (setq summary (buffer-substring 
-			      (point) (save-excursion (end-of-line) (point))))
+	       (if (mew-thread-p)
+		   (setq summary
+			 (concat
+			  (mew-buffer-substring (line-beginning-position)
+						(progn (move-to-column (mew-vinfo-get-column))
+						       (point)))
+			  (mew-buffer-substring (let ((mew-use-thread-cursor t))
+						  (progn (mew-thread-move-cursor) (point)))
+						(line-end-position))))
+		 (setq summary (mew-buffer-substring (line-beginning-position)
+						     (line-end-position))))
 	       ;;
 	       (set-buffer view)
 	       (insert summary)