[mew-dist 27570] mew-summary-trace-path

[KOIE Hidetaka ( 鯉江英隆 )]

`;' (mew-summary-trace-path) の出力で
fromホストが表示されないことがあったのでなおしてみました。

fromホストがいちいち表示されるとみにくくなるので
まともな場合には snd の表示を省くようにしました。

それからfromが不明の場合は "?" と表示するようにしました。

Index: mew-summary2.el
===================================================================
RCS file: /cvsmew/mew/mew-summary2.el,v
retrieving revision 1.68
diff -F^( -u -r1.68 mew-summary2.el
--- mew-summary2.el	4 Jan 2007 06:49:15 -0000	1.68
+++ mew-summary2.el	15 Feb 2007 03:51:01 -0000
@@ -523,7 +523,7 @@ (defun mew-summary-trace-path ()
    (let* ((win (selected-window))
 	  (fld (mew-summary-folder-name))
 	  (msg (mew-summary-message-number2))
-	  lst ent svr-date snd rcv svr date tmp)
+	  lst ent svr-date (snd "?") (rcv "?") last svr date tmp)
      (mew-summary-set-message-buffer fld msg)
      ;; message buffer or cache buffer
      (setq lst (nreverse (mew-header-get-value mew-received: 'as-list)))
@@ -546,10 +546,12 @@ (defun mew-summary-trace-path ()
 	 (cond
 	  ((string-match "(\\(qmail [0-9]+\\)" svr)
 	   (setq rcv (match-string 1 svr)))
-	  ((string-match "by[ \t]*\\([^() \t\n]+\\)" svr)
+	  ((string-match "by[ \t]+\\([^() \t\n]+\\)" svr)
 	   (setq rcv (match-string 1 svr))
-	   (if (string-match "from[ \t]*\\([^() \t\n]+\\).*\\(\\[[.0-9]+\\]\\)" svr)
-	       (setq snd (format "%s %s" (match-string 1 svr) (match-string 2 svr))))
+	   (if (string-match "from[ \t]+\\([^() \t\n]+\\).*\\([[][.0-9]+[]]\\)" svr)
+	       (setq snd (format "%s %s" (match-string 1 svr) (match-string 2 svr)))
+	     (if (string-match "from[ \t]+\\([^() \t\n]+\\)" svr)
+		 (setq snd (match-string 1 svr))))
 	   (when (and (string= snd "unknown")
 		      (string-match "from unknown (HELO \\([^() \t\n]+\\))" svr))
 	     (setq snd (concat (match-string 1 svr) "(unknown)"))))
@@ -572,11 +574,12 @@ (defun mew-summary-trace-path ()
 	  (insert ":")
 	  (forward-char 2)
 	  (insert " (" (mew-time-tmzn-int) ") ")
-	  (if snd (insert snd))
+	  (if (and snd (not (string-equal snd last))) (insert snd))
 	  (insert " => ")
 	  (if rcv (insert rcv))
 	  (insert "\n")
-	  (setq snd nil rcv nil))))
+	  (setq last rcv)
+	  (setq snd "?" rcv "?"))))
      (mew-summary-display-postscript 'no-hook)
      (select-window win))))
 

--
KOIE Hidetaka <hide at example.com>