projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use gnus-article-before-search.
[gnus]
/
lisp
/
rfc1843.el
diff --git
a/lisp/rfc1843.el
b/lisp/rfc1843.el
index
f9f3888
..
c3bb790
100644
(file)
--- a/
lisp/rfc1843.el
+++ b/
lisp/rfc1843.el
@@
-1,8
+1,8
@@
;;; rfc1843.el --- HZ (rfc1843) decoding
;;; rfc1843.el --- HZ (rfc1843) decoding
-;; Copyright (c) 1998,
99
Free Software Foundation, Inc.
+;; Copyright (c) 1998,
1999, 2000
Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
-;; Keywords: news HZ HZ+
+;; Keywords: news HZ HZ+
mail i18n
;; This file is a part of GNU Emacs.
;; This file is a part of GNU Emacs.
@@
-32,13
+32,14
@@
;;; Code:
;;; Code:
+(eval-when-compile (require 'cl))
(require 'mm-util)
(defvar rfc1843-word-regexp
(require 'mm-util)
(defvar rfc1843-word-regexp
- "~\\({\\([\041-\167][\041-\176]\\| \\)+\\(~}\\|$\\)")
+ "~\\({\\([\041-\167][\041-\176]\\| \\)+\\
)\\
(~}\\|$\\)")
(defvar rfc1843-word-regexp-strictly
(defvar rfc1843-word-regexp-strictly
- "~\\({\\([\041-\167][\041-\176]\\)+\\(~}\\|$\\)")
+ "~\\({\\([\041-\167][\041-\176]\\)+\\
)\\
(~}\\|$\\)")
(defvar rfc1843-hzp-word-regexp
"~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
(defvar rfc1843-hzp-word-regexp
"~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
@@
-86,7
+87,10
@@
ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
(while (re-search-forward (if rfc1843-decode-hzp
rfc1843-hzp-word-regexp
rfc1843-word-regexp) (point-max) t)
(while (re-search-forward (if rfc1843-decode-hzp
rfc1843-hzp-word-regexp
rfc1843-word-regexp) (point-max) t)
- (setq str (match-string 1))
+ ;;; Text with extents may cause XEmacs crash
+ (setq str (buffer-substring-no-properties
+ (match-beginning 1)
+ (match-end 1)))
(setq firstc (aref str 0))
(insert (mm-decode-coding-string
(rfc1843-decode
(setq firstc (aref str 0))
(insert (mm-decode-coding-string
(rfc1843-decode