[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Adding multipart indicator on summary line
Hi, I'm testing attached modification to show
another sign if the mail is multipart/signed or multipart/encrypted.
I have also following line in ~/.wl to utilize this feature.
; wl-summary-line-format "%n%T%P %M/%D(%W)%h:%m %t%[%17(%c %f%) %] %s"
(setq wl-summary-line-format "%n%T%P%1@%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %s")
But (probably) related this I'm getting followng message.
wl-summary-goto-folder-subr: Invalid function: wl-folder-get-entity-id
Please advice me, thank you.
---
Makoto Fujiwara,
Chiba, Japan, Narita Airport and Disneyland prefecture.
--- /usr/pkg/share/emacs/site-lisp/wl/wl-summary.el 2013-01-08 00:22:17.000000000 +0900
+++ /home/makoto/mule/lisp/wl-summary.el 2013-01-16 09:40:36.000000000 +0900
@@ -3541,11 +3541,13 @@ Return non-nil if the mark is updated"
(let ((content-type (elmo-message-entity-field
wl-message-entity 'content-type))
(case-fold-search t))
- (if (and content-type
- (string-match "multipart/mixed" content-type))
- "@"
- "")))
-
+ (if (stringp content-type)
+ (cond
+ ((string-match "multipart/mixed" content-type) "@")
+ ((string-match "multipart/signed" content-type) "s")
+ ((string-match "multipart/encrypted" content-type) "e")
+ (t " ") )
+ " " )))
;;; For future use.
;;;(defun wl-summary-line-cached ()
;;; (if (elmo-message-cached-p wl-summary-buffer-elmo-folder