[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