[Mew-dist 09202] Re: Add address to Aliases

[Kazu Yamamoto ( 山本和彦 )]

From: "Hiromichi Kawachi" <kawachi at example.com>
Subject: [Mew-dist 09188] Re: Add address to Aliases 
Date: Sun, 6 Jun 1999 02:51:40 +0900

> ただ，私の理解が間違っているのかも知れませんが，現状では alias
> (~/Mail/.mew-alias) に自動登録されるのは，メールアドレス本体と，その
> alias としての，アドレスの "@" の前の部分だと理解してます．これです
> と，メールアドレス自体をまったく覚えていない場合に，補完を使って呼び
> 出すことができません．

こんなんでよろしいでしょうか？

あと、割り当てるキーを考えてくれると嬉しいです。(M-a はだめ。)

--かず

-------------- next part --------------
Index: mew-addrbook.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-addrbook.el,v
retrieving revision 1.19
diff -c -r1.19 mew-addrbook.el
*** mew-addrbook.el	1999/06/02 11:50:49	1.19
--- mew-addrbook.el	1999/06/07 04:40:43
***************
*** 217,222 ****
--- 217,258 ----
  	  (setq alist (cons (list alias addrs nick name) alist))))
        (nreverse alist))))
  
+ ;;
+ ;; Registration
+ ;;
+ 
+ (defun mew-summary-alias-add ()
+   (interactive)
+   (let ((buf (mew-buffer-message))
+ 	from addr alias user)
+     (save-excursion
+       (set-buffer buf)
+       (if (mew-header-p)
+ 	  ()
+ 	(setq buf (mew-current-get 'cache))
+ 	(if (null buf)
+ 	    (message "No address to be registered")
+ 	  (set-buffer buf)))
+       (setq from (mew-header-get-value mew-from:))
+       (if (null from)
+ 	  (message "No address to be registered")
+ 	(setq addr (mew-addrstr-parse-address from))
+ 	(setq user (mew-addrstr-extract-user addr))
+ 	(if (and (string-match "<.*>" from)
+ 		 (y-or-n-p (message "Extract %s? " addr)))
+ 	    (setq from addr))
+ 	(setq alias (read-string (format "Input a short name (%s): " user)))
+ 	(if (equal alias "")
+ 	    (setq alias user))
+ 	(set-buffer (find-file-noselect mew-addrbook-file))
+ 	(goto-char (point-max))
+ 	(if (not (bolp)) (insert "\n"))
+ 	(insert alias ": " from "\n")
+ 	(save-buffer)
+ 	(setq mew-addrbook-alist (cons (list alias from) mew-addrbook-alist))
+ 	(message "Registered %s" alias)
+ 	(kill-buffer (current-buffer))))))
+ 	  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Old aliases and petnames