;;; gnus-offline.el --- To process mail & news at offline environment.
-;;; Copyright (C) 1998 Tatsuya Ichikawa
-;;; Yukihiro Ito
+;;; Copyright (C) 1998, 2001 Tatsuya Ichikawa
+;;; Copyright (C) 1998, 2001 Yukihiro Ito
;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
;;; Yukihiro Ito <ito@rs.civil.tohoku.ac.jp>
;;; Hidekazu Nakamura <u90121@uis-inf.co.jp>
;;; 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.
;;;
(eval '(run-hooks 'gnus-offline-load-hook))
(eval-when-compile (require 'cl))
-(eval-when-compile (require 'gnus-clfns))
(eval-when-compile
(require 'static)
;; "A matter of trust"
;; "Modern Woman"
;; "Ahhhhhhh!!" ; 2.10b1
- "Cup of life" ; 2.20
+ "Cup of life" ; 2.20
;; "Code of silence"
)
gnus-offline-version-number))
(eval-when-compile
- (mapc
- (lambda (symbol)
- (unless (boundp symbol)
- (make-local-variable symbol)
- (eval (list 'setq symbol nil))))
- '(nnagent-version
- nnspool-version
- msspool-news-server
- msspool-news-service
- miee-popup-menu
- gnus-group-toolbar)))
+ (defvar nnagent-version)
+ (defvar nnspool-version)
+ (defvar msspool-news-server)
+ (defvar msspool-news-service)
+ (defvar miee-popup-menu))
(if (featurep 'meadow)
(define-process-argument-editing "/hang\\.exe\\'"
;; 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.
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))
(funcall func))))))
(defun gnus-offline-get-menu-items (list)
- (mapcar
- #'(lambda (el)
- (if (listp el)
- (apply 'vector
- (cons (gnus-offline-gettext (car el)) (cdr el)))
- el))
- list))
+ (let (result)
+ (dolist (elem list)
+ (setq result
+ (nconc result
+ (list (if (listp elem)
+ (progn
+ (setcar elem (gnus-offline-gettext (car elem)))
+ (vconcat elem))
+ elem)))))
+ result))
(defvar gnus-offline-menu
(gnus-offline-get-menu-items