mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

Merge from gnus--devo--0

Browse Source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1460
This commit is contained in:
Miles Bader 2008-11-03 06:05:36 +00:00
parent 2f29fae31b
commit 8e38a1a9bd
2 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/ChangeLog
View File

@ -1,3 +1,14 @@
2008-10-31 Teodor Zlatanov <tzz@lifelogs.com>
* ietf-drums.el (ietf-drums-remove-comments): Localize second
condition-case to only the forward-sexp call.
2008-10-31 Teodor Zlatanov <tzz@lifelogs.com>
* ietf-drums.el (ietf-drums-remove-comments): Fix bug with single
quotes contained. Make it more robust regardless by an extra
condition-case wrapper.
2008-10-03 Katsumi Yamaoka <yamaoka@jpl.org>
* nnml.el (nnml-request-expire-articles): Check if the function set to

13
lisp/gnus/ietf-drums.el
View File

@ -123,9 +123,18 @@ backslash and doublequote.")
(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))))