[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 メーリングリストの案内