[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/binhex.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/binhex.el,v |
Date: |
Sun, 28 Oct 2007 09:19:30 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 07/10/28 09:18:40
Index: lisp/gnus/binhex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/binhex.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- lisp/gnus/binhex.el 26 Jul 2007 05:26:55 -0000 1.14
+++ lisp/gnus/binhex.el 28 Oct 2007 09:18:34 -0000 1.15
@@ -27,8 +27,6 @@
;;; Code:
-(autoload 'executable-find "executable")
-
(eval-when-compile (require 'cl))
(eval-and-compile
@@ -246,14 +244,13 @@
(setq file-name-length (char-after (point-min))
data-fork-start (+ (point-min)
file-name-length 22))))
- (if (and (null header)
+ (when (and (null header)
(with-current-buffer work-buffer
(>= (buffer-size) data-fork-start)))
- (progn
(binhex-verify-crc work-buffer
(point-min) data-fork-start)
(setq header (binhex-header work-buffer))
- (if header-only (setq tmp nil counter 0))))
+ (when header-only (setq tmp nil counter 0)))
(setq tmp (and tmp (not (eq inputpos end)))))
(cond
((= counter 3)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/binhex.el,v,
Miles Bader <=