[Mew-dist 03921] patch to mew-summary-execute-external

[西村俊夫]

elispはほとんど理解できないのですが、１つ貢献できました。

1) UNIXを使っている人でHTMLはnetscapeで見る設定

.emacsに以下の行を追加します。

(setq mew-ext-prog-url "rnetscape")
(setq mew-ext-prog-url-args nil)
(setq mew-prog-text/html "rnetscape")

rnetscapeの内容は次のとおり。

#!/bin/sh
netscape -raise -remote openURL\($1\)


2) single partの時に起動しないバグ修正
diff -c mew-summary.el mew-summary.el.orig
*** mew-summary.el      Tue Feb 24 11:00:45 1998
--- mew-summary.el.orig Tue Feb 24 11:01:10 1998
***************
*** 918,924 ****
         (msg (mew-summary-message-number))
         (part (mew-syntax-number))
         (buf (buffer-name)))
!     (if (not (or msg part))
        (message "Not a part")
        (unwind-protect
          (progn
--- 918,924 ----
         (msg (mew-summary-message-number))
         (part (mew-syntax-number))
         (buf (buffer-name)))
!     (if (or msg (not part))
        (message "Not a part")
        (unwind-protect
          (progn


nishimu