projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(gnus-summary-refer-thread): Implement a version that uses *-request-thread.
[gnus]
/
lisp
/
gnus-dired.el
diff --git
a/lisp/gnus-dired.el
b/lisp/gnus-dired.el
index
4874de1
..
a12046f
100644
(file)
--- a/
lisp/gnus-dired.el
+++ b/
lisp/gnus-dired.el
@@
-87,6
+87,12
@@
See `mail-user-agent' for more information."
gnus-user-agent)
(function :tag "Other")))
gnus-user-agent)
(function :tag "Other")))
+(eval-when-compile
+ (when (featurep 'xemacs)
+ (defvar gnus-dired-mode-hook)
+ (defvar gnus-dired-mode-on-hook)
+ (defvar gnus-dired-mode-off-hook)))
+
(define-minor-mode gnus-dired-mode
"Minor mode for intersections of gnus and dired.
(define-minor-mode gnus-dired-mode
"Minor mode for intersections of gnus and dired.
@@
-127,7
+133,9
@@
filenames."
(mapcar
;; don't attach directories
(lambda (f) (if (file-directory-p f) nil f))
(mapcar
;; don't attach directories
(lambda (f) (if (file-directory-p f) nil f))
- (nreverse (dired-map-over-marks (dired-get-filename) nil))))))
+ (nreverse
+ (let ((arg nil)) ;; Silence XEmacs 21.5 when compiling.
+ (dired-map-over-marks (dired-get-filename) arg)))))))
(let ((destination nil)
(files-str nil)
(bufs nil))
(let ((destination nil)
(files-str nil)
(bufs nil))
@@
-146,12
+154,8
@@
filenames."
(setq destination
(if (= (length bufs) 1)
(get-buffer (car bufs))
(setq destination
(if (= (length bufs) 1)
(get-buffer (car bufs))
- (completing-read "Attach to which mail composition buffer: "
- (mapcar
- (lambda (b)
- (cons b (get-buffer b)))
- bufs)
- nil t)))
+ (gnus-completing-read "Attach to which mail composition buffer"
+ bufs t)))
;; setup a new mail composition buffer
(let ((mail-user-agent gnus-dired-mail-mode)
;; A workaround to prevent Gnus from displaying the Gnus
;; setup a new mail composition buffer
(let ((mail-user-agent gnus-dired-mail-mode)
;; A workaround to prevent Gnus from displaying the Gnus
@@
-198,7
+202,7
@@
If ARG is non-nil, open it in a new buffer."
(setq method
(cdr (assoc 'viewer
(car (mailcap-mime-info mime-type
(setq method
(cdr (assoc 'viewer
(car (mailcap-mime-info mime-type
- 'all
+ 'all
'no-decode)))))))
(let ((view-command (mm-mailcap-command method file-name nil)))
(message "viewing via %s" view-command)
'no-decode)))))))
(let ((view-command (mm-mailcap-command method file-name nil)))
(message "viewing via %s" view-command)
@@
-255,5
+259,4
@@
file to save in."
(provide 'gnus-dired)
(provide 'gnus-dired)
-;; arch-tag: 44737731-e445-4638-a31e-713c7590ec76
;;; gnus-dired.el ends here
;;; gnus-dired.el ends here