(defsubst mailcap-look-at-schar ()
(let ((chr (char-after (point))))
- (if (and (>= chr ? )
+ (if (and chr
+ (>= chr ? )
(/= chr ?\;)
(/= chr ?\\)
)
(let ((beg (point)))
(while (or (mailcap-look-at-qchar)
(mailcap-look-at-schar)))
- (buffer-substring beg (point))))
+ (buffer-substring beg (point))
+ ))
;;; @ field