(when mh-decode-mime-flag
(save-excursion
(let ((buffer-read-only nil))
- (rfc2047-decode-region (progn (mh-goto-header-field "subject:") (point))
+ (rfc2047-decode-region (progn (mh-goto-header-field "Subject:") (point))
(progn (mh-header-field-end) (point)))))))
;;;###mh-autoload
(unless begin (setq begin (point-min)))
(unless end (setq end (point-max)))
(save-excursion
- (block 'search-for-mh-directive
+ (block search-for-mh-directive
(goto-char begin)
(while (re-search-forward "^#" end t)
(let ((s (buffer-substring-no-properties
(point) (mh-line-end-position))))
(cond ((equal s ""))
((string-match "^forw[ \t\n]+" s)
- (return-from 'search-for-mh-directive t))
+ (return-from search-for-mh-directive t))
(t (let ((first-token (car (split-string s "[ \t;@]"))))
(when (and first-token
(string-match mh-media-type-regexp
first-token))
- (return-from 'search-for-mh-directive t)))))))
+ (return-from search-for-mh-directive t)))))))
nil)))
(defun mh-minibuffer-read-type (filename &optional default)