[Mew-dist 10383] Re: quoted non-ASCII Name when addrbook-add

[Han Yeongsu]

はん＠図研です。

Fri, 20 Aug 1999 19:36:24 +0900 頃、
  Han Yeongsu <yons at example.com> さんは書きました：

> addrbook-register で C-cC-c するときにエラーを表示する
> ad-hoc なパッチを作ってみました。

すみません。このパッチでは、
Name: に何も入れないと C-cC-c でエラーが起きて登録できません。

一応、パッチを添付しておきます。[Mew-dist 10297] の後に当てます。

# これらの(addrbookに対する)パッチが妥当かどうかわからないので
# 添削お願いします＞＞かずさん

--
  韓 英樹 (mailto:yons at example.com)
-------------- next part --------------
*** mew-addrbook.el	Fri Aug 20 19:30:12 1999
--- mew-addrbook.el	Tue Aug 24 11:28:48 1999
***************
*** 367,373 ****
  	 (setq errmsg "Must fill Addresses."))
  	((and (null shortname) (null nickname) (null name))
  	 (setq errmsg "Must fill Shortname or Nickname or Name."))
! 	((string-match "^\"[^\"]*[^\000-\177]" name)
  	 (setq errmsg "Remove quote around non-ASCII Name.")))))
       (if errmsg
  	 (message errmsg)
--- 367,373 ----
  	 (setq errmsg "Must fill Addresses."))
  	((and (null shortname) (null nickname) (null name))
  	 (setq errmsg "Must fill Shortname or Nickname or Name."))
! 	((and name (string-match "^\"[^\"]*[^\000-\177]" name))
  	 (setq errmsg "Remove quote around non-ASCII Name.")))))
       (if errmsg
  	 (message errmsg)