[Mew-dist 04685] mew-summary-exec-current

[Mito]

X でメールを削除すると空行ができてしまいました。

--- mew-mark.el	1998/05/13 09:42:48	1.1
+++ mew-mark.el	1998/05/13 10:24:51
@@ -478,7 +478,7 @@
     (save-excursion
       (beginning-of-line)
       (setq beg (point))
-      (end-of-line)
+      (forward-line 1)
       (setq end (point))
       )
     (mew-summary-exec-region beg end)
@@ -490,6 +490,16 @@
   (interactive "r")
   (if (mew-summary-exclusive-p)
       (save-excursion
+        (goto-char beg)
+        (if (mew-summary-in-multi-p)
+            (progn
+              (mew-summary-goto-message)
+              (setq beg (point))))
+        (goto-char end)
+        (while (mew-summary-in-multi-p)
+            (forward-line 1))
+        (beginning-of-line)
+        (setq end (point))
 	(save-restriction
 	  (narrow-to-region beg end)
 	  (goto-char (point-min))
-- 
5/13 19:31頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n