[Mew-dist 13673] Re: b47

[Kenichi Niioka ( 新岡賢一 )]

新岡です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13637] b47
Date: Thu, 13 Jul 2000 22:08:17 +0900

> b47 をリリースします。

1. Summary モードの "To:hogehoge" にも nickname を表示したい。
2. Summary モードに時刻を表示したい。
   07/18 18:21 という感じです。

を実現するパッチです。
"2." は、完全にハードコーディンツをしていてなおかつ稚拙なコードだ
と思いますが、一応目的は達しています。

--
新岡賢一(Kenichi Niioka)
ken at example.com

-------------- next part --------------
*** mew-scan.el.orig	Wed Jul 12 23:05:16 2000
--- mew-scan.el	Tue Jul 18 16:10:41 2000
***************
*** 96,113 ****
  	(ct   (or (aref vec 5) ""))
  	(id   (or (aref vec 6) ""))
  	(case-fold-search t)
! 	day month ret1 ret2 func faddr nickname duplicated)
!     (if (string-match "\\([0-9][0-9]?\\) \\([A-Z][a-z][a-z]\\)" date)
  	(progn
  	  (setq day (mew-match 1 date))
! 	  (setq month (mew-match 2 date)))
!       (setq day "0" month "Jan"))
      (if (string= from "")
  	()
        (setq faddr (mew-addrstr-parse-address from))
        (if (and (not (string= to ""))
  	       (mew-is-my-address mew-regex-my-address-list faddr))
! 	  (setq from (concat "To:" (mew-addrstr-parse-address to)))
  	(if (and mew-addrbook-for-summary
  		 (setq func (mew-addrbook-func mew-addrbook-for-summary))
  		 (setq nickname (funcall func faddr)))
--- 96,118 ----
  	(ct   (or (aref vec 5) ""))
  	(id   (or (aref vec 6) ""))
  	(case-fold-search t)
! 	day month time ret1 ret2 func faddr nickname duplicated)
!     (if (string-match "\\([0-9][0-9]?\\) \\([A-Z][a-z][a-z]\\) \\([0-9][0-9][0-9][0-9]\\) \\([0-9][0-9]+:[0-9][0-9]+:[0-9][0-9]\\)" date)
  	(progn
  	  (setq day (mew-match 1 date))
! 	  (setq month (mew-match 2 date))
! 	  (setq time (mew-match 4 date)))
!       (setq day "0" month "Jan" time "00:00:00"))
      (if (string= from "")
  	()
        (setq faddr (mew-addrstr-parse-address from))
        (if (and (not (string= to ""))
  	       (mew-is-my-address mew-regex-my-address-list faddr))
! 	  (if (and mew-addrbook-for-summary
! 		 (setq func (mew-addrbook-func mew-addrbook-for-summary))
! 		 (setq nickname (funcall func (mew-addrstr-parse-address to))))
! 		 (setq from (concat "To:" nickname))
! 	    (setq from (concat "To:" (mew-addrstr-parse-address to))))
  	(if (and mew-addrbook-for-summary
  		 (setq func (mew-addrbook-func mew-addrbook-for-summary))
  		 (setq nickname (funcall func faddr)))
***************
*** 118,124 ****
  	  (setq duplicated t)
  	(setq mew-scan-ids (cons id mew-scan-ids))))
      (setq ret1
! 	  (format "%5s%c%c%02d/%02d %s "
  		  num
  		  (cond
  		   (duplicated ?D)
--- 123,129 ----
  	  (setq duplicated t)
  	(setq mew-scan-ids (cons id mew-scan-ids))))
      (setq ret1
! 	  (format "%5s%c%c%02d/%02d %s %s "
  		  num
  		  (cond
  		   (duplicated ?D)
***************
*** 131,136 ****
--- 136,142 ----
  		   (t 32))
  		  (cdr (assoc month mew-month-alist))
  		  (string-to-int day)
+ 		  (substring time 0 5)
  		  (mew-substring from 14) ""))
      ;; convert TAB to space
      (while (string-match "\t" subj)