diff options
Diffstat (limited to 'lisp/gnus/binhex.el')
| -rw-r--r-- | lisp/gnus/binhex.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/lisp/gnus/binhex.el b/lisp/gnus/binhex.el index 69866a9eacc..88f0e20f17c 100644 --- a/lisp/gnus/binhex.el +++ b/lisp/gnus/binhex.el @@ -27,8 +27,6 @@ ;;; Code: -(autoload 'executable-find "executable") - (eval-when-compile (require 'cl)) (eval-and-compile @@ -246,14 +244,13 @@ If HEADER-ONLY is non-nil only decode header and return filename." (setq file-name-length (char-after (point-min)) data-fork-start (+ (point-min) file-name-length 22)))) - (if (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 (and (null header) + (with-current-buffer work-buffer + (>= (buffer-size) data-fork-start))) + (binhex-verify-crc work-buffer + (point-min) data-fork-start) + (setq header (binhex-header work-buffer)) + (when header-only (setq tmp nil counter 0))) (setq tmp (and tmp (not (eq inputpos end))))) (cond ((= counter 3) |