[Mew-Win32 00537] Re: mew-win32.el 0.23 (Re: browse-url-or-mew)

[Hideyuki SHIRAI]

From: Hideyuki SHIRAI <Shirai at example.com> 曰く
Subject: [Mew-Win32 00524] Re: mew-win32.el 0.23 (Re: browse-url-or-mew)
Message-ID: <19980403191204P.shirai at example.com>
Date: Fri, 3 Apr 1998 19:11:54 +0900

白井> 北口> を t にしてもファイルにたまらないことですね。聞かないで
白井> 北口> ため込んでいく方が個人的には便利だと思います。
白井> 
白井> ふむふむ、じゃあ、仕様を変えちゃいましょう。

browse-mew-append-file を開いたbuffer上でクリックしたときは
無条件で『fileにappendしないで、browseする』
機能を付け加えました。

1.93b27付属の mew-win32.el に

Subject: [Mew-Win32 00524] Re: mew-win32.el 0.23 (Re: browse-url-or-mew)
From: Hideyuki SHIRAI <Shirai at example.com>
Date: Fri, 3 Apr 1998 19:11:54 +0900
X-Mail-Count: 00524

のパッチをかけた後に、もう一度パッチしてください。

--
白井＠ローカル変数ボロボロ％試験洩れがありませんように

-------------- next part --------------
--- mew-win32.el.orig	Wed Apr 15 11:11:44 1998
+++ mew-win32.el	Wed Apr 15 12:36:52 1998
@@ -122,11 +122,14 @@
 (defun browse-url-or-mew (url)
   "browse URL or mew-send."
   (interactive)
-  (let ((append-all (and browse-mew-append-file browse-mew-append-always-file))
-	(append-ask (and browse-mew-append-file (not browse-mew-append-always-file)))
-	(append-nil (not browse-mew-append-file))
-	(browse-all browse-url-mew-noask)
-	(browse-ask (not browse-url-mew-noask)))
+  (let* ((append-buffer (and browse-mew-append-file
+			     (string= buffer-file-name
+				      (expand-file-name browse-mew-append-file))))
+	 (append-nil (or append-buffer (not browse-mew-append-file)))
+	 (append-all (and (not append-nil) browse-mew-append-always-file))
+	 (append-ask (and (not append-nil) (not browse-mew-append-always-file)))
+	 (browse-all (or append-buffer browse-url-mew-noask))
+	 (browse-ask (and (not append-buffer) (not browse-url-mew-noask))))
     (string-match "\\([a-zA-Z0-9][-a-zA-Z0-9!_=?#$@~`%&*+|\\/.,:]+\\)" url)
     (setq url (substring url (match-beginning 0) (match-end 0)))
     (if (not (string-match ":" url))    ;; emacs19.28 only