projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
nnir.el (nnir-get-active): Ignore nnir-ignored-newsgroups if null.
[gnus]
/
lisp
/
binhex.el
diff --git
a/lisp/binhex.el
b/lisp/binhex.el
index
e3876ab
..
42d2f35
100644
(file)
--- a/
lisp/binhex.el
+++ b/
lisp/binhex.el
@@
-1,7
+1,7
@@
;;; binhex.el --- elisp native binhex decode
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;;; binhex.el --- elisp native binhex decode
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009
, 2010
Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: binhex news
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: binhex news
@@
-221,7
+221,8
@@
If HEADER-ONLY is non-nil only decode header and return filename."
(goto-char start)
(when (re-search-forward binhex-begin-line end t)
(setq work-buffer (generate-new-buffer " *binhex-work*"))
(goto-char start)
(when (re-search-forward binhex-begin-line end t)
(setq work-buffer (generate-new-buffer " *binhex-work*"))
- (with-current-buffer work-buffer (set-buffer-multibyte nil))
+ (unless (featurep 'xemacs)
+ (with-current-buffer work-buffer (set-buffer-multibyte nil)))
(beginning-of-line)
(setq bits 0 counter 0)
(while tmp
(beginning-of-line)
(setq bits 0 counter 0)
(while tmp
@@
-327,5
+328,4
@@
If HEADER-ONLY is non-nil only decode header and return filename."
(provide 'binhex)
(provide 'binhex)
-;; arch-tag: 8476badd-1e76-4f1d-a640-f9a38c72eed8
;;; binhex.el ends here
;;; binhex.el ends here