[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Thanks resolved. (Re: Adding multipart indicator on summary line
Thanks everyone, now everything works fine.
The story was:
(1) I have modified my patch from originally sent wrongly
when adding following line.
+(eval-when-compile (require 'wl-folder))
The wrongly means, say, like this:
+ (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" "")
+ )) ))
+
I will add this patch to pkgsrc/wip/wl-current:
http://pkgsrc-wip.sourceforge.net/
http://pkgsrc-wip.cvs.sourceforge.net/viewvc/pkgsrc-wip/wip/wl-current/
Thanks again,
---
Makoto Fujiwara,
Chiba, Japan, Narita Airport and Disneyland prefecture.
http://www.ki.nu/software/namazu/tutorial/
-------------------
$NetBSD$
Add other indidators depending on types of multipart.
mef@ proposed to upstream.
You will need following lines to utilize this change in
your setup, for example, in ~/.wl.
(setq elmo-msgdb-extra-fields
(cons "content-type" elmo-msgdb-extra-fields))
; '((\"^%\" . \"%n%T%P %M/%D(%W)%h:%m %t%[%14(%c %f%) %](%S) %s\")
;(setq 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%@%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %~%s")
--- wl/wl-summary.el.orig 2013-01-25 11:39:09.000000000 +0900
+++ wl/wl-summary.el 2013-01-25 12:26:38.000000000 +0900
@@ -38,6 +38,7 @@
(require 'elmo)
(require 'elmo-multi)
(eval-when-compile (require 'elmo-filter))
+(eval-when-compile (require 'wl-folder))
(require 'wl-message)
(require 'wl-vars)
(require 'wl-highlight)
@@ -3541,11 +3542,15 @@ 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")
+ ; else returns blank
+ (t " " ) )
+ " ")))
+
;;; For future use.
;;;(defun wl-summary-line-cached ()
;;; (if (elmo-message-cached-p wl-summary-buffer-elmo-folder