;;; Note.
;;; This file works only with after version of Emacs 19.30.
;;; This file needs miee.el and SEMI.
-;;; If you set gnus-offline-drafts-queue-type to 'agent , you don't need
+;;; If you set gnus-offline-drafts-queue-type to 'agent , you don't need
;;; miee.el
;;; You must use T-gnus 6.12.0 or later.
;;;
;; "A matter of trust"
;; "Modern Woman"
;; "Ahhhhhhh!!" ; 2.10b1
- "Cup of life" ; 2.20
+ "Cup of life" ; 2.20
;; "Code of silence"
)
;; fetch only mail for gnus-agent
(if (and (eq gnus-offline-news-fetch-method 'nnagent)
(eq gnus-offline-articles-to-fetch 'mail))
- (setq gnus-agent-handle-level gnus-offline-mail-group-level)))
+ (setq gnus-agent-handle-level gnus-offline-mail-group-level)))
;;
;; Change mail group level to handle only mail.
(setq hdr (concat header " "))
(setq str (concat hdr string))
(setq hdr (concat str "\n"))
- (insert-string hdr))))
+ (insert hdr))))
;;
;; Add X-Offline-Backend header.
;;
nnagent-version
nnspool-version))
(str (format "\n with %s" ver)))
- (gnus-offline-add-custom-header
- "X-Gnus-Offline-Backend:" (concat gnus-offline-header-string str)))))
+ (gnus-offline-add-custom-header
+ "X-Gnus-Offline-Backend:" (concat gnus-offline-header-string str)))))
\f
;;
;;
(setenv "MAILHOST" nil))
;;
-;; Hangup line function
+;; Hangup line function
;;
(defun gnus-offline-hangup-line ()
"*Hangup line function."
(message "%s" (gnus-offline-gettext 'empting-spool-4)))
;; Send queued message by gnus-agent
(message "%s" (gnus-offline-gettext 'empting-spool-5))
- (gnus-group-send-drafts)
+ (gnus-group-send-queue)
(message "%s" (gnus-offline-gettext 'empting-spool-6)))
;;
(run-hooks 'gnus-offline-after-empting-spool-hook))
((featurep 'xemacs)
(popup-menu menu))
(t
- (let ((menu-func (or (and (fboundp 'easy-menu-create-menu)
- 'easy-menu-create-menu)
- 'easy-menu-create-keymaps))
- keymap pop func)
- (static-cond ((< emacs-major-version 20)
- ;; For Emacsen from 19.34 down to 19.28.
- ;; Seems the first item in MENU will be ignored.
- (or (keymapp menu)
- (setq menu
- (append (list "" ;; This will be ignored.
- (or title "Popup Menu")
- "-----"
- "-----")
- (cdr menu))))
- (setq keymap
- (if (keymapp menu)
- (append (list 'keymap
- (if title
- `(nil ,title)
- '(nil "Popup Menu"))
- '(nil "")
- '(nil ""))
- (cdr menu))
- (funcall menu-func (car menu) (cdr menu)))))
- (t
- (setq keymap
- (if (keymapp menu)
- menu
- (funcall menu-func (car menu) (cdr menu))))))
+ (let* ((menu-func (or (and (fboundp 'easy-menu-create-menu)
+ 'easy-menu-create-menu)
+ 'easy-menu-create-keymaps))
+ (keymap (if (keymapp menu)
+ menu
+ (funcall menu-func (car menu) (cdr menu))))
+ pop func)
;; Display the popup menu.
(if (and (setq pop (x-popup-menu t keymap))
(setq func (lookup-key keymap