;;; Code:
+(require 'mime-def)
+
+
;;; @ comment
;;;
(defsubst mailcap-look-at-schar ()
(let ((chr (char-after (point))))
- (if (and (>= chr ? )
+ (if (and chr
+ (>= chr ? )
(/= chr ?\;)
(/= chr ?\\)
)
(forward-char)))))
(defsubst mailcap-look-at-qchar ()
- (let ((chr (char-after (point))))
- (when (eq chr ?\\)
- (forward-char 2)
- (char-before (point))
- )))
+ (when (eq (char-after (point)) ?\\)
+ (prog2
+ (forward-char)
+ (char-after (point))
+ (forward-char))))
(defsubst mailcap-look-at-mtext ()
(let ((beg (point)))
(t entries)
))))
-(defvar mailcap-file "~/.mailcap"
- "*File name of user's mailcap file.")
+
+(defcustom mailcap-file "~/.mailcap"
+ "*File name of user's mailcap file."
+ :group 'mime
+ :type 'file)
(defun mailcap-parse-file (&optional filename order)
"Parse FILENAME as a mailcap, and return the result.