X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fietf-drums.el;h=c0e1542fa823480536910494fcc1e5c88a8647bc;hp=11213689281ad3a63abf49c692e1a2c9738f7f85;hb=HEAD;hpb=3473191dc8a1fe61f874555a230284a7210f0442;ds=sidebyside diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el index 112136892..c0e1542fa 100644 --- a/lisp/ietf-drums.el +++ b/lisp/ietf-drums.el @@ -1,6 +1,6 @@ ;;; ietf-drums.el --- Functions for parsing RFC822bis headers -;; Copyright (C) 1998-2014 Free Software Foundation, Inc. +;; Copyright (C) 1998-2016 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; This file is part of GNU Emacs. @@ -121,7 +121,7 @@ backslash and doublequote.") (setq c (char-after)) (cond ((eq c ?\") - (condition-case err + (condition-case nil (forward-sexp 1) (error (goto-char (point-max))))) ((eq c ?\() @@ -206,7 +206,6 @@ backslash and doublequote.") (1+ (point)) (progn (forward-sexp 1) (1- (point)))))))) (t - (message "Unknown symbol: %c" c) (forward-char 1)))) ;; If we found no display-name, then we look for comments. (if display-name