[Mew-dist 16960] Address Book mode

[SUGIMORI ( 杉森 隆行 )]

すぎもりです。

Addrbookに登録した時にファイルへの書き込みと変数への設定を同時にやると
思うのですが、その際にquoteされた文字列が変数に設定されているので、

Shortname: test
Addresses: test at example.com
Nickname: test test
Name: test test

とすると
mew-addrbook-orig-alistには、
 ("test"
  ("test at example.com")
  "\"test test\"" "\"test test\"")
と登録されてしまいます。

というわけで、順番を入れ替えてみました。


$ diff -c mew-addrbook.el.org mew-addrbook.el
*** mew-addrbook.el.org	Sun Mar 18 03:12:00 2001
--- mew-addrbook.el	Fri Mar 23 12:56:58 2001
***************
*** 468,473 ****
--- 468,474 ----
  	    (mew-addrbook-nconc (list shortname addrs)))
  	   (t
  	    (setq addrsl (mew-addrstr-parse-address-list addrs))
+ 	    (mew-addrbook-nconc (list shortname addrsl nickname name))
  	    (unless shortname (setq shortname "*"))
  	    (if (and nickname (string-match "^[^\" \t]+[ \t]+.*$" nickname))
  		(setq nickname (concat "\"" nickname "\"")))
***************
*** 477,484 ****
  		(insert shortname "\t" addrs "\t" (or nickname "*") "\t" name)
  	      (if nickname
  		  (insert shortname "\t" addrs "\t" nickname)
! 		(insert shortname "\t" addrs)))
! 	    (mew-addrbook-nconc (list shortname addrsl nickname name))))
  	  (if comments
  	      (insert "\t#" comments "\n")
  	    (insert "\n"))
--- 478,484 ----
  		(insert shortname "\t" addrs "\t" (or nickname "*") "\t" name)
  	      (if nickname
  		  (insert shortname "\t" addrs "\t" nickname)
! 		(insert shortname "\t" addrs)))))
  	  (if comments
  	      (insert "\t#" comments "\n")
  	    (insert "\n"))