:group 'gnus-extract
:type '(repeat string))
-(defcustom binhex-use-external
+(defcustom binhex-use-external
(executable-find binhex-decoder-program)
"*Use external binhex program."
:group 'gnus-extract
(interactive "r")
(let ((cbuf (current-buffer)) firstline work-buffer status
(file-name (expand-file-name
- (concat (binhex-decode-region-internal start end t)
+ (concat (binhex-decode-region-internal start end t)
".data")
binhex-temporary-file-directory)))
(save-excursion
(defun binhex-decode-region (start end)
"Binhex decode region between START and END."
(interactive "r")
- (if binhex-use-external
+ (if binhex-use-external
(binhex-decode-region-external start end)
(binhex-decode-region-internal start end)))