projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove nnml-retrieve-groups that is unnecessary and somewhat problematic
[gnus]
/
lisp
/
rfc1843.el
diff --git
a/lisp/rfc1843.el
b/lisp/rfc1843.el
index
c50d08c
..
83bda2a
100644
(file)
--- a/
lisp/rfc1843.el
+++ b/
lisp/rfc1843.el
@@
-1,7
+1,6
@@
;;; rfc1843.el --- HZ (rfc1843) decoding
;;; rfc1843.el --- HZ (rfc1843) decoding
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: news HZ HZ+ mail i18n
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: news HZ HZ+ mail i18n
@@
-32,10
+31,6
@@
;;; Code:
;;; Code:
-;; For Emacs < 22.2.
-(eval-and-compile
- (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
-
(eval-when-compile (require 'cl))
(require 'mm-util)
(eval-when-compile (require 'cl))
(require 'mm-util)
@@
-51,11
+46,11
@@
(defvar rfc1843-hzp-word-regexp
"~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
(defvar rfc1843-hzp-word-regexp
"~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
-
\
[<>]\\([\041-\175][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
+[<>]\\([\041-\175][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
(defvar rfc1843-hzp-word-regexp-strictly
"~\\({\\([\041-\167][\041-\176]\\)+\\|\
(defvar rfc1843-hzp-word-regexp-strictly
"~\\({\\([\041-\167][\041-\176]\\)+\\|\
-
\
[<>]\\([\041-\175][\041-\176]\\)+\\)\\(~}\\|$\\)")
+[<>]\\([\041-\175][\041-\176]\\)+\\)\\(~}\\|$\\)")
(defcustom rfc1843-decode-loosely nil
"Loosely check HZ encoding if non-nil.
(defcustom rfc1843-decode-loosely nil
"Loosely check HZ encoding if non-nil.
@@
-166,7
+161,6
@@
ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
(equal (car ctl) "text/plain"))
(rfc1843-decode-region (point) (point-max))))))))
(equal (car ctl) "text/plain"))
(rfc1843-decode-region (point) (point-max))))))))
-(defvar rfc1843-old-gnus-decode-header-function nil)
(defvar gnus-decode-header-methods)
(defvar gnus-decode-encoded-word-methods)
(defvar gnus-decode-header-methods)
(defvar gnus-decode-encoded-word-methods)
@@
-192,5
+186,4
@@
ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
(provide 'rfc1843)
(provide 'rfc1843)
-;; arch-tag: 5149c301-a6ca-4731-9c9d-ba616e2cb687
;;; rfc1843.el ends here
;;; rfc1843.el ends here