1. xemacs
  2. mh-e


sperber-guest  committed 497ff3a

Update MH to use unquoted symbols for `block', `return-from'

  • Participants
  • Parent commits e560bcd
  • Branches default

Comments (0)

Files changed (2)

File ChangeLog

View file
+2011-03-17  Aidan Kehoe  <kehoea@parhasard.net>
+	* mh-mime.el (mh-mhn-directive-present-p):
+	Use unquoted symbols for `block', `return-from', as always
+	document but only recently enforced in XEmacs 21.5.
 2009-08-18  Norbert Koch  <viteno@xemacs.org>
 	* Makefile (VERSION): XEmacs package 1.32 released.

File mh-mime.el

View file
 (defun mh-mhn-directive-present-p ()
   "Check if the current buffer has text which might be a MHN directive."
-    (block 'search-for-mhn-directive
+    (block search-for-mhn-directive
       (goto-char (point-min))
       (while (re-search-forward "^#" nil t)
         (let ((s (buffer-substring-no-properties (point) (line-end-position))))
           (cond ((equal s ""))
                 ((string-match "^forw[ \t\n]+" s)
-                 (return-from 'search-for-mhn-directive t))
+                 (return-from search-for-mhn-directive t))
                 (t (let ((first-token (car (split-string s "[ \t;@]"))))
                      (when (string-match mh-media-type-regexp first-token)
-                       (return-from 'search-for-mhn-directive t)))))))
+                       (return-from search-for-mhn-directive t)))))))