emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]