[Mew-dist 08417] Re: about Aliases

[Kazu Yamamoto ( 山本和彦 )]

From: Tomio Sato (佐藤 富雄) <sato at example.com>
Subject: [Mew-dist 08410] about Aliases
Date: Thu, 1 Apr 1999 13:22:46 +0900

> b17あたりから？Draft Modeでの[To:]フィールドの補間がAliasesの記述通りに
> 表示されなくなってしまいました。

よくこいうの見付けますねー。:)

これで直ると思います。

--かず
-------------- next part --------------
Index: mew-addrbook.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-addrbook.el,v
retrieving revision 1.14
diff -c -r1.14 mew-addrbook.el
*** mew-addrbook.el	1999/03/31 23:05:29	1.14
--- mew-addrbook.el	1999/04/01 06:04:07
***************
*** 66,72 ****
  return the first member of the list.
  If addresses is a string, expands it recursively."
    (let* ((crnt (nth 1 (mew-addrbook-alias-hit key alist)))
! 	 (keys (and (stringp crnt) (mew-addrstr-parse-address-list crnt)))
  	 ret tmp)
      (cond
       ((> n mew-expand-max-depth) key)
--- 66,73 ----
  return the first member of the list.
  If addresses is a string, expands it recursively."
    (let* ((crnt (nth 1 (mew-addrbook-alias-hit key alist)))
! 	 (keys (and (stringp crnt)
! 		    (mapcar (function mew-chop) (mew-split crnt ?,))))
  	 ret tmp)
      (cond
       ((> n mew-expand-max-depth) key)
Index: mew-func.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-func.el,v
retrieving revision 1.54
diff -c -r1.54 mew-func.el
*** mew-func.el	1999/03/31 06:41:50	1.54
--- mew-func.el	1999/04/01 06:04:07
***************
*** 263,273 ****
     (nreverse ret)))
  
  (defun mew-chop (str)
!   "Split off preceding and following white spaces"
!   (if (string-match "^[ \t]*\\(.+\\)[ \t]*$" str) ;; allow spaces inside
!       (mew-match 1 str)
!     str))
! 
  ;;
  ;; Folder
  ;;
--- 263,285 ----
     (nreverse ret)))
  
  (defun mew-chop (str)
!   "Split off preceding and following white spaces."
!   (let ((i 0) (j (length str)) c)
!     (catch 'loop
!       (while (< i j)
! 	(setq c (aref str i))
! 	(if (or (char-equal c 32) (char-equal c ?\t))
! 	    (setq i (1+ i))
! 	  (throw 'loop nil))))
!     (setq j (1- j))
!     (catch 'loop
!       (while (< i j)
! 	(setq c (aref str j))
! 	(if (or (char-equal c 32) (char-equal c ?\t))
! 	    (setq j (1- j))
! 	  (throw 'loop nil))))
!     (substring str i (1+ j))))
! 	
  ;;
  ;; Folder
  ;;