[mew-dist 17922] Re: Release mew-fancy-summary.el (final version?)
KAMEI Ken-ichi
mule at example.com
2001年 6月 29日 (金) 18:07:56 JST
亀井です。
mew-scan-form-from-me-prefix を nil に設定していたら怒られてしま
いました。
下のようにして逃げましたが、そもそも To: を表示したくない場合は
(setq mew-scan-form-from-me-prefix "")
とするべきかもしれません。どちらが普通なんでしょうか?
p.s.
scan-form を変更していると色の変化位置が合わず。:-(
現在、勉強中。
--- mew-fancy-summary.el.orig Fri Jun 29 16:20:03 2001
+++ mew-fancy-summary.el Fri Jun 29 18:03:03 2001
@@ -447,14 +447,18 @@
(move-to-column (+ (current-column) range))
(point)
(goto-char beg))))
- (prelen (string-width mew-scan-form-from-me-prefix))
+ (prelen (if mew-scan-form-from-me-prefix
+ (string-width mew-scan-form-from-me-prefix)
+ 0))
elen)
(if (string-match "[^\r\n]*[^ \r\n]" entry)
(setq entry (substring entry (match-beginning 0) (match-end 0)))
(setq entry ""))
(setq elen (string-width entry))
(if (not (and (> prelen 0)
- (eq (string-match mew-scan-form-from-me-prefix entry)
+ (eq (if mew-scan-form-from-me-prefix
+ (string-match mew-scan-form-from-me-prefix entry)
+ 0)
0)))
;; Mail to me
(if (mew-fancy-summary-special-p entry)
-- kamei
Mew-dist メーリングリストの案内