* wl-vars.el (wl-invalid-character-message): New user option.

* wl-util.el (wl-set-string-width): If truncated string-width is larger than
specified width, use `wl-invalid-character-message'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ac6e7c9..a6b29f0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2002-05-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-vars.el (wl-invalid-character-message): New user option.
+
+       * wl-util.el (wl-set-string-width): If truncated string-width is
+       larger than specified width, use `wl-invalid-character-message'.
+
 2002-05-14  KAMO Tomoyuki  <kamo@i-manage.co.jp>
 
        * wl-summary.el (wl-summary-prefetch-msg): 

diff --git a/wl/wl-util.el b/wl/wl-util.el
index d9ce4c7..d1f69b3 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -186,12 +186,16 @@ to add the result instead of white space."
        (setq string (truncate-string-to-width string (abs width))))
     (if (= (string-width string) (abs width))
        string
-      (let ((paddings (make-string
-                      (max 0 (- (abs width) (string-width string)))
-                      (or padding ?\ ))))
-       (if (< width 0)
-           (concat paddings string)
-         (concat string paddings)))))
+      (if (< (abs width) (string-width string))
+         (wl-set-string-width width
+                              wl-invalid-character-message
+                              padding)
+       (let ((paddings (make-string
+                        (max 0 (- (abs width) (string-width string)))
+                        (or padding ?\ ))))
+         (if (< width 0)
+             (concat paddings string)
+           (concat string paddings))))))
    (t
     (elmo-set-work-buf
      (elmo-set-buffer-multibyte default-enable-multibyte-characters)

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index c8d5186..823c595 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2425,6 +2425,11 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
                (const :tag "bitmap (using BITMAP-MULE)" bitmap))
   :group 'wl-pref)
 
+(defcustom wl-invalid-character-message "(WL:Invalid characters.)"
+  "*A string displayed when invalid character exists."
+  :type 'string
+  :group 'wl-pref)
+
 ;;; Internal variables
 (defvar wl-init nil)