;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: mail, news, RFC 822, STD 11
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: mail, news, RFC 822, STD 11
(defconst std11-special-chars "][()<>@,;:\\<>.\"")
(defconst std11-atom-regexp
(concat "^[^" std11-special-chars std11-space-chars "]+"))
(defconst std11-special-chars "][()<>@,;:\\<>.\"")
(defconst std11-atom-regexp
(concat "^[^" std11-special-chars std11-space-chars "]+"))
-(defun std11-analyze-spaces (str)
- (if (string-match std11-spaces-regexp str)
+(defun std11-analyze-spaces (string)
+ (if (and (string-match std11-spaces-regexp string)
+ (= (match-beginning 0) 0))