;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
(setq c (char-after))
(cond
((eq c ?\")
- (forward-sexp 1))
+ (condition-case err
+ (forward-sexp 1)
+ (error (goto-char (point-max)))))
((eq c ?\()
- (delete-region (point) (progn (forward-sexp 1) (point))))
+ (delete-region
+ (point)
+ (condition-case nil
+ (with-syntax-table (copy-syntax-table ietf-drums-syntax-table)
+ (modify-syntax-entry ?\" "w")
+ (forward-sexp 1)
+ (point))
+ (error (point-max)))))
(t
(forward-char 1))))
(buffer-string))))