[COMMIT] Update MH to use unquoted symbols for `block', `return-from'.

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/mh-e/ChangeLog addition: 2011-03-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/mh-e/mh-mime.el Index: xemacs-packages/mh-e/mh-mime.el =================================================================== RCS file: /cvsroot/xemacs/XEmacs/packages/xemacs-packages/mh-e/mh-mime.el,v retrieving revision 1.6 diff -u -u -r1.6 mh-mime.el --- xemacs-packages/mh-e/mh-mime.el 2 Sep 2003 23:39:26 -0000 1.6 +++ xemacs-packages/mh-e/mh-mime.el 17 Mar 2011 19:21:12 -0000 ＠＠ -425,16 +425,16 ＠＠ (defun mh-mhn-directive-present-p () "Check if the current buffer has text which might be a MHN directive." (save-excursion - (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))))))) nil)))  -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches