mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-12 16:23:57 +00:00
* smime.el (from):
* rfc2047.el (message-posting-charset): * qp.el (mm-use-ultra-safe-encoding): * pop3.el (parse-time-months): * nnrss.el (mm-text-html-renderer, mm-text-html-washer-alist): * nnml.el (files): * nnheader.el (gnus-newsgroup-name, nnheader-file-coding-system) (jka-compr-compression-info-list, ange-ftp-path-format) (efs-path-regexp): * nndiary.el (files): * mml2015.el (mc-default-scheme, mc-schemes, pgg-default-user-id) (pgg-errors-buffer, pgg-output-buffer, epg-user-id-alist) (epg-digest-algorithm-alist, inhibit-redisplay) (password-cache-expiry): * mml1991.el (pgg-default-user-id, pgg-errors-buffer) (pgg-output-buffer, password-cache-expiry): * mml.el (mml-dnd-protocol-alist, ange-ftp-name-format) (efs-path-regexp): * mml-smime.el (epg-user-id-alist, epg-digest-algorithm-alist) (inhibit-redisplay): * mm-uu.el (file-name, start-point, end-point, entry) (gnus-newsgroup-name, gnus-newsgroup-charset): * mm-util.el (mm-mime-mule-charset-alist, latin-unity-coding-systems) (latin-unity-ucs-list): * mm-bodies.el (mm-uu-yenc-decode-function, mm-uu-decode-function) (mm-uu-binhex-decode-function): * message.el (gnus-message-group-art, gnus-list-identifiers, ) (rmail-enable-mime-composing, gnus-local-organization) (gnus-post-method, gnus-select-method, gnus-active-hashtb) (gnus-read-active-file, facemenu-add-face-function) (facemenu-remove-face-function, gnus-article-decoded-p) (tool-bar-mode): * mail-source.el (display-time-mail-function): * gnus-util.el (nnmail-pathname-coding-system) (nnmail-active-file-coding-system, gnus-emphasize-whitespace-regexp) (gnus-original-article-buffer, gnus-user-agent) (rmail-default-rmail-file, mm-text-coding-system, tool-bar-mode) (xemacs-codename, sxemacs-codename, emacs-program-version): * gnus-sum.el (tool-bar-mode, gnus-tmp-header, number): * gnus-start.el (gnus-agent-covered-methods) (gnus-agent-file-loading-local, gnus-agent-file-loading-cache) (gnus-current-headers, gnus-thread-indent-array, gnus-newsgroup-name) (gnus-newsgroup-headers, gnus-group-list-mode) (gnus-group-mark-positions, gnus-newsgroup-data) (gnus-newsgroup-unreads, nnoo-state-alist) (gnus-current-select-method, mail-sources) (nnmail-scan-directory-mail-source-once, nnmail-split-history) (nnmail-spool-file, gnus-cache-active-hashtb): * gnus-mh.el (mh-lib-progs): * gnus-ems.el (gnus-tmp-unread, gnus-tmp-replied) (gnus-tmp-score-char, gnus-tmp-indentation, gnus-tmp-opening-bracket) (gnus-tmp-lines, gnus-tmp-name, gnus-tmp-closing-bracket) (gnus-tmp-subject-or-nil, gnus-check-before-posting, gnus-mouse-face) (gnus-group-buffer): * gnus-cite.el (font-lock-defaults-computed, font-lock-keywords) (font-lock-set-defaults): * gnus-art.el (tool-bar-map, w3m-minor-mode-map) (gnus-face-properties-alist, charset, gnus-summary-article-menu) (gnus-summary-post-menu, total-parts, type, condition, length): * gnus-agent.el (gnus-agent-read-agentview): * flow-fill.el (show-trailing-whitespace): * gnus-group.el (tool-bar-mode, nnrss-group-alist): Remove unnecessary eval-and-compile wrappers for byte compiler pacifiers. * mm-view.el (mm-inline-image-xemacs): Only do something for XEmacs. (mm-display-inline-fontify): Check for featurep 'xemacs not extent-list. * mm-decode.el (mm-display-external): Check for featurep 'xemacs not itimer-list. (mm-create-image-xemacs): Only do something for XEmacs. (mm-image-fit-p): Check for featurep 'xemacs not glyph-width. * mm-util.el (mm-find-buffer-file-coding-system): Add check for XEmacs. * gnus-registry.el (gnus-adaptive-word-syntax-table): * gnus-fun.el (gnus-face-properties-alist): Pacify byte compiler. * textmodes/reftex-dcr.el (reftex-start-itimer-once): Add check for XEmacs. * calc/calc-menu.el (calc-mode-map): Pacify byte compiler. * doc-view.el (doc-view-resolution): Add missing :group.
This commit is contained in:
parent
c456960854
commit
9efa445fbe
lisp
ChangeLog
calc
doc-view.elgnus
ChangeLogflow-fill.elgnus-agent.elgnus-art.elgnus-cite.elgnus-cus.elgnus-ems.elgnus-fun.elgnus-group.elgnus-mh.elgnus-registry.elgnus-start.elgnus-sum.elgnus-util.elmail-source.elmessage.elmm-bodies.elmm-decode.elmm-util.elmm-uu.elmm-view.elmml-smime.elmml.elmml1991.elmml2015.elnndiary.elnnheader.elnnml.elnnrss.elpop3.elqp.elrfc2047.elsmime.el
textmodes
@ -1,3 +1,12 @@
|
||||
2007-11-16 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* textmodes/reftex-dcr.el (reftex-start-itimer-once): Add check
|
||||
for XEmacs.
|
||||
|
||||
* calc/calc-menu.el (calc-mode-map): Pacify byte compiler.
|
||||
|
||||
* doc-view.el (doc-view-resolution): Add missing :group.
|
||||
|
||||
2007-11-16 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* subr.el (make-variable-frame-local):
|
||||
|
@ -1159,6 +1159,8 @@
|
||||
(Info-goto-node "Help Commands"))])
|
||||
"Menu for Calc's help functions.")
|
||||
|
||||
(defvar calc-mode-map)
|
||||
|
||||
(easy-menu-define
|
||||
calc-menu
|
||||
calc-mode-map
|
||||
|
@ -163,7 +163,8 @@
|
||||
(defcustom doc-view-resolution 100
|
||||
"Dots per inch resolution used to render the documents.
|
||||
Higher values result in larger images."
|
||||
:type 'number)
|
||||
:type 'number
|
||||
:group 'doc-view)
|
||||
|
||||
(defcustom doc-view-dvipdfm-program (executable-find "dvipdfm")
|
||||
"Program to convert DVI files to PDF.
|
||||
|
@ -1,3 +1,83 @@
|
||||
2007-11-16 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* smime.el (from):
|
||||
* rfc2047.el (message-posting-charset):
|
||||
* qp.el (mm-use-ultra-safe-encoding):
|
||||
* pop3.el (parse-time-months):
|
||||
* nnrss.el (mm-text-html-renderer, mm-text-html-washer-alist):
|
||||
* nnml.el (files):
|
||||
* nnheader.el (gnus-newsgroup-name, nnheader-file-coding-system)
|
||||
(jka-compr-compression-info-list, ange-ftp-path-format)
|
||||
(efs-path-regexp):
|
||||
* nndiary.el (files):
|
||||
* mml2015.el (mc-default-scheme, mc-schemes, pgg-default-user-id)
|
||||
(pgg-errors-buffer, pgg-output-buffer, epg-user-id-alist)
|
||||
(epg-digest-algorithm-alist, inhibit-redisplay)
|
||||
(password-cache-expiry):
|
||||
* mml1991.el (pgg-default-user-id, pgg-errors-buffer)
|
||||
(pgg-output-buffer, password-cache-expiry):
|
||||
* mml.el (mml-dnd-protocol-alist, ange-ftp-name-format)
|
||||
(efs-path-regexp):
|
||||
* mml-smime.el (epg-user-id-alist, epg-digest-algorithm-alist)
|
||||
(inhibit-redisplay):
|
||||
* mm-uu.el (file-name, start-point, end-point, entry)
|
||||
(gnus-newsgroup-name, gnus-newsgroup-charset):
|
||||
* mm-util.el (mm-mime-mule-charset-alist, latin-unity-coding-systems)
|
||||
(latin-unity-ucs-list):
|
||||
* mm-bodies.el (mm-uu-yenc-decode-function, mm-uu-decode-function)
|
||||
(mm-uu-binhex-decode-function):
|
||||
* message.el (gnus-message-group-art, gnus-list-identifiers, )
|
||||
(rmail-enable-mime-composing, gnus-local-organization)
|
||||
(gnus-post-method, gnus-select-method, gnus-active-hashtb)
|
||||
(gnus-read-active-file, facemenu-add-face-function)
|
||||
(facemenu-remove-face-function, gnus-article-decoded-p)
|
||||
(tool-bar-mode):
|
||||
* mail-source.el (display-time-mail-function):
|
||||
* gnus-util.el (nnmail-pathname-coding-system)
|
||||
(nnmail-active-file-coding-system, gnus-emphasize-whitespace-regexp)
|
||||
(gnus-original-article-buffer, gnus-user-agent)
|
||||
(rmail-default-rmail-file, mm-text-coding-system, tool-bar-mode)
|
||||
(xemacs-codename, sxemacs-codename, emacs-program-version):
|
||||
* gnus-sum.el (tool-bar-mode, gnus-tmp-header, number):
|
||||
* gnus-start.el (gnus-agent-covered-methods)
|
||||
(gnus-agent-file-loading-local, gnus-agent-file-loading-cache)
|
||||
(gnus-current-headers, gnus-thread-indent-array, gnus-newsgroup-name)
|
||||
(gnus-newsgroup-headers, gnus-group-list-mode)
|
||||
(gnus-group-mark-positions, gnus-newsgroup-data)
|
||||
(gnus-newsgroup-unreads, nnoo-state-alist)
|
||||
(gnus-current-select-method, mail-sources)
|
||||
(nnmail-scan-directory-mail-source-once, nnmail-split-history)
|
||||
(nnmail-spool-file, gnus-cache-active-hashtb):
|
||||
* gnus-mh.el (mh-lib-progs):
|
||||
* gnus-ems.el (gnus-tmp-unread, gnus-tmp-replied)
|
||||
(gnus-tmp-score-char, gnus-tmp-indentation, gnus-tmp-opening-bracket)
|
||||
(gnus-tmp-lines, gnus-tmp-name, gnus-tmp-closing-bracket)
|
||||
(gnus-tmp-subject-or-nil, gnus-check-before-posting, gnus-mouse-face)
|
||||
(gnus-group-buffer):
|
||||
* gnus-cite.el (font-lock-defaults-computed, font-lock-keywords)
|
||||
(font-lock-set-defaults):
|
||||
* gnus-art.el (tool-bar-map, w3m-minor-mode-map)
|
||||
(gnus-face-properties-alist, charset, gnus-summary-article-menu)
|
||||
(gnus-summary-post-menu, total-parts, type, condition, length):
|
||||
* gnus-agent.el (gnus-agent-read-agentview):
|
||||
* flow-fill.el (show-trailing-whitespace):
|
||||
* gnus-group.el (tool-bar-mode, nnrss-group-alist): Remove unnecessary
|
||||
eval-and-compile wrappers for byte compiler pacifiers.
|
||||
|
||||
* mm-view.el (mm-inline-image-xemacs): Only do something for XEmacs.
|
||||
(mm-display-inline-fontify): Check for featurep 'xemacs not
|
||||
extent-list.
|
||||
|
||||
* mm-decode.el (mm-display-external): Check for featurep 'xemacs not
|
||||
itimer-list.
|
||||
(mm-create-image-xemacs): Only do something for XEmacs.
|
||||
(mm-image-fit-p): Check for featurep 'xemacs not glyph-width.
|
||||
|
||||
* mm-util.el (mm-find-buffer-file-coding-system): Add check for XEmacs.
|
||||
|
||||
* gnus-registry.el (gnus-adaptive-word-syntax-table):
|
||||
* gnus-fun.el (gnus-face-properties-alist): Pacify byte compiler.
|
||||
|
||||
2007-11-15 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* nnimap.el (nnimap-split-download-body):
|
||||
|
@ -154,8 +154,7 @@ RFC 2646 suggests 66 characters for readability."
|
||||
|
||||
;; Test vectors.
|
||||
|
||||
(eval-when-compile
|
||||
(defvar show-trailing-whitespace))
|
||||
(defvar show-trailing-whitespace)
|
||||
|
||||
(defvar fill-flowed-encode-tests
|
||||
`(
|
||||
|
@ -2104,8 +2104,7 @@ doesn't exist, to valid the overview buffer."
|
||||
|
||||
;; Keeps the compiler from warning about the free variable in
|
||||
;; gnus-agent-read-agentview.
|
||||
(eval-when-compile
|
||||
(defvar gnus-agent-read-agentview))
|
||||
(defvar gnus-agent-read-agentview)
|
||||
|
||||
(defun gnus-agent-load-alist (group)
|
||||
"Load the article-state alist for GROUP."
|
||||
|
@ -28,9 +28,9 @@
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(defvar tool-bar-map)
|
||||
(defvar w3m-minor-mode-map))
|
||||
(require 'cl))
|
||||
(defvar tool-bar-map)
|
||||
(defvar w3m-minor-mode-map)
|
||||
|
||||
(require 'gnus)
|
||||
;; Avoid the "Recursive load suspected" error in Emacs 21.1.
|
||||
@ -2332,8 +2332,7 @@ long lines iff arg is positive."
|
||||
(forward-line 1)
|
||||
(point))))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-face-properties-alist))
|
||||
(defvar gnus-face-properties-alist)
|
||||
|
||||
(defun article-display-face ()
|
||||
"Display any Face headers in the header."
|
||||
@ -2726,7 +2725,7 @@ charset defined in `gnus-summary-show-article-charset-alist' is used."
|
||||
;; Put the mark meaning this part was rendered by emacs-w3m.
|
||||
'mm-inline-text-html-with-w3m t))))
|
||||
|
||||
(eval-when-compile (defvar charset)) ;; Bound by `article-wash-html'.
|
||||
(defvar charset) ;; Bound by `article-wash-html'.
|
||||
|
||||
(defun gnus-article-wash-html-with-w3m-standalone ()
|
||||
"Wash the current buffer with w3m."
|
||||
@ -3529,9 +3528,8 @@ This format is defined by the `gnus-article-time-format' variable."
|
||||
gnus-newsgroup-name 'highlight-words t)))
|
||||
gnus-emphasis-alist)))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-summary-article-menu)
|
||||
(defvar gnus-summary-post-menu))
|
||||
(defvar gnus-summary-article-menu)
|
||||
(defvar gnus-summary-post-menu)
|
||||
|
||||
;;; Saving functions.
|
||||
|
||||
@ -7903,12 +7901,11 @@ For example:
|
||||
(funcall (cadr elem)))))))
|
||||
|
||||
;; Dynamic variables.
|
||||
(eval-when-compile
|
||||
(defvar part-number)
|
||||
(defvar total-parts)
|
||||
(defvar type)
|
||||
(defvar condition)
|
||||
(defvar length))
|
||||
(defvar part-number)
|
||||
(defvar total-parts)
|
||||
(defvar type)
|
||||
(defvar condition)
|
||||
(defvar length)
|
||||
|
||||
(defun gnus-treat-predicate (val)
|
||||
(cond
|
||||
|
@ -1170,10 +1170,9 @@ Returns nil if there is no such line before LIMIT, t otherwise."
|
||||
(setq count (1+ count)))))) ;;
|
||||
"Keywords for highlighting different levels of message citations.")
|
||||
|
||||
(eval-when-compile
|
||||
(defvar font-lock-defaults-computed)
|
||||
(defvar font-lock-keywords)
|
||||
(defvar font-lock-set-defaults))
|
||||
(defvar font-lock-defaults-computed)
|
||||
(defvar font-lock-keywords)
|
||||
(defvar font-lock-set-defaults)
|
||||
|
||||
(eval-and-compile
|
||||
(unless (featurep 'xemacs)
|
||||
|
@ -949,20 +949,18 @@ articles in the thread.
|
||||
(gnus-score-set 'touched '(t) alist))
|
||||
(bury-buffer))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar category-fields nil)
|
||||
(defvar gnus-agent-cat-name)
|
||||
(defvar gnus-agent-cat-score-file)
|
||||
(defvar gnus-agent-cat-length-when-short)
|
||||
(defvar gnus-agent-cat-length-when-long)
|
||||
(defvar gnus-agent-cat-low-score)
|
||||
(defvar gnus-agent-cat-high-score)
|
||||
(defvar gnus-agent-cat-enable-expiration)
|
||||
(defvar gnus-agent-cat-days-until-old)
|
||||
(defvar gnus-agent-cat-predicate)
|
||||
(defvar gnus-agent-cat-groups)
|
||||
(defvar gnus-agent-cat-enable-undownloaded-faces)
|
||||
)
|
||||
(defvar category-fields nil)
|
||||
(defvar gnus-agent-cat-name)
|
||||
(defvar gnus-agent-cat-score-file)
|
||||
(defvar gnus-agent-cat-length-when-short)
|
||||
(defvar gnus-agent-cat-length-when-long)
|
||||
(defvar gnus-agent-cat-low-score)
|
||||
(defvar gnus-agent-cat-high-score)
|
||||
(defvar gnus-agent-cat-enable-expiration)
|
||||
(defvar gnus-agent-cat-days-until-old)
|
||||
(defvar gnus-agent-cat-predicate)
|
||||
(defvar gnus-agent-cat-groups)
|
||||
(defvar gnus-agent-cat-enable-undownloaded-faces)
|
||||
|
||||
(defun gnus-trim-whitespace (s)
|
||||
(when (string-match "\\`[ \n\t]+" s)
|
||||
|
@ -74,19 +74,18 @@
|
||||
(defvar gnus-mouse-face-prop 'mouse-face
|
||||
"Property used for highlighting mouse regions.")))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-tmp-unread)
|
||||
(defvar gnus-tmp-replied)
|
||||
(defvar gnus-tmp-score-char)
|
||||
(defvar gnus-tmp-indentation)
|
||||
(defvar gnus-tmp-opening-bracket)
|
||||
(defvar gnus-tmp-lines)
|
||||
(defvar gnus-tmp-name)
|
||||
(defvar gnus-tmp-closing-bracket)
|
||||
(defvar gnus-tmp-subject-or-nil)
|
||||
(defvar gnus-check-before-posting)
|
||||
(defvar gnus-mouse-face)
|
||||
(defvar gnus-group-buffer))
|
||||
(defvar gnus-tmp-unread)
|
||||
(defvar gnus-tmp-replied)
|
||||
(defvar gnus-tmp-score-char)
|
||||
(defvar gnus-tmp-indentation)
|
||||
(defvar gnus-tmp-opening-bracket)
|
||||
(defvar gnus-tmp-lines)
|
||||
(defvar gnus-tmp-name)
|
||||
(defvar gnus-tmp-closing-bracket)
|
||||
(defvar gnus-tmp-subject-or-nil)
|
||||
(defvar gnus-check-before-posting)
|
||||
(defvar gnus-mouse-face)
|
||||
(defvar gnus-group-buffer)
|
||||
|
||||
(defun gnus-ems-redefine ()
|
||||
(cond
|
||||
|
@ -34,6 +34,8 @@
|
||||
(require 'gnus-util)
|
||||
(require 'gnus)
|
||||
|
||||
(defvar gnus-face-properties-alist)
|
||||
|
||||
(defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
|
||||
"*Directory where X-Face PBM files are stored."
|
||||
:version "22.1"
|
||||
|
@ -28,8 +28,8 @@
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(defvar tool-bar-mode))
|
||||
(require 'cl))
|
||||
(defvar tool-bar-mode)
|
||||
|
||||
(require 'gnus)
|
||||
(require 'gnus-start)
|
||||
@ -2875,8 +2875,8 @@ If SOLID (the prefix), create a solid group."
|
||||
(cons (current-buffer)
|
||||
(if (eq major-mode 'gnus-summary-mode) 'summary 'group))))))
|
||||
|
||||
(defvar nnrss-group-alist)
|
||||
(eval-when-compile
|
||||
(defvar nnrss-group-alist)
|
||||
(defun nnrss-discover-feed (arg))
|
||||
(defun nnrss-save-server-data (arg)))
|
||||
(defun gnus-group-make-rss-group (&optional url)
|
||||
|
@ -41,8 +41,7 @@
|
||||
(require 'gnus-msg)
|
||||
(require 'gnus-sum)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar mh-lib-progs))
|
||||
(defvar mh-lib-progs)
|
||||
|
||||
(defun gnus-summary-save-article-folder (&optional arg)
|
||||
"Append the current article to an mh folder.
|
||||
|
@ -63,6 +63,8 @@
|
||||
(require 'gnus-util)
|
||||
(require 'nnmail)
|
||||
|
||||
(defvar gnus-adaptive-word-syntax-table)
|
||||
|
||||
(defvar gnus-registry-dirty t
|
||||
"Boolean set to t when the registry is modified")
|
||||
|
||||
|
@ -39,11 +39,11 @@
|
||||
(autoload 'gnus-agent-possibly-alter-active "gnus-agent")
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(require 'cl))
|
||||
|
||||
(defvar gnus-agent-covered-methods nil)
|
||||
(defvar gnus-agent-file-loading-local nil)
|
||||
(defvar gnus-agent-file-loading-cache nil))
|
||||
(defvar gnus-agent-covered-methods)
|
||||
(defvar gnus-agent-file-loading-local)
|
||||
(defvar gnus-agent-file-loading-cache)
|
||||
|
||||
(defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc")
|
||||
"Your `.newsrc' file.
|
||||
@ -650,21 +650,20 @@ the first newsgroup."
|
||||
;;; General various misc type functions.
|
||||
|
||||
;; Silence byte-compiler.
|
||||
(eval-when-compile
|
||||
(defvar gnus-current-headers)
|
||||
(defvar gnus-thread-indent-array)
|
||||
(defvar gnus-newsgroup-name)
|
||||
(defvar gnus-newsgroup-headers)
|
||||
(defvar gnus-group-list-mode)
|
||||
(defvar gnus-group-mark-positions)
|
||||
(defvar gnus-newsgroup-data)
|
||||
(defvar gnus-newsgroup-unreads)
|
||||
(defvar nnoo-state-alist)
|
||||
(defvar gnus-current-select-method)
|
||||
(defvar mail-sources)
|
||||
(defvar nnmail-scan-directory-mail-source-once)
|
||||
(defvar nnmail-split-history)
|
||||
(defvar nnmail-spool-file))
|
||||
(defvar gnus-current-headers)
|
||||
(defvar gnus-thread-indent-array)
|
||||
(defvar gnus-newsgroup-name)
|
||||
(defvar gnus-newsgroup-headers)
|
||||
(defvar gnus-group-list-mode)
|
||||
(defvar gnus-group-mark-positions)
|
||||
(defvar gnus-newsgroup-data)
|
||||
(defvar gnus-newsgroup-unreads)
|
||||
(defvar nnoo-state-alist)
|
||||
(defvar gnus-current-select-method)
|
||||
(defvar mail-sources)
|
||||
(defvar nnmail-scan-directory-mail-source-once)
|
||||
(defvar nnmail-split-history)
|
||||
(defvar nnmail-spool-file)
|
||||
|
||||
(defun gnus-close-all-servers ()
|
||||
"Close all servers."
|
||||
@ -1512,8 +1511,8 @@ newsgroup."
|
||||
(setq killed (cdr killed)))))
|
||||
|
||||
;; We want to inline a function from gnus-cache, so we cheat here:
|
||||
(defvar gnus-cache-active-hashtb)
|
||||
(eval-when-compile
|
||||
(defvar gnus-cache-active-hashtb)
|
||||
(defun gnus-cache-possibly-alter-active (group active)
|
||||
"Alter the ACTIVE info for GROUP to reflect the articles in the cache."
|
||||
(when gnus-cache-active-hashtb
|
||||
|
@ -28,8 +28,10 @@
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(defvar tool-bar-mode))
|
||||
(require 'cl))
|
||||
|
||||
(defvar tool-bar-mode)
|
||||
(defvar gnus-tmp-header)
|
||||
|
||||
(require 'gnus)
|
||||
(require 'gnus-group)
|
||||
@ -4954,7 +4956,6 @@ Unscored articles will be counted as having a score of zero."
|
||||
(defvar gnus-tmp-root-expunged nil)
|
||||
(defvar gnus-tmp-dummy-line nil)
|
||||
|
||||
(eval-when-compile (defvar gnus-tmp-header))
|
||||
(defun gnus-extra-header (type &optional header)
|
||||
"Return the extra header of TYPE."
|
||||
(or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
|
||||
@ -5592,8 +5593,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
|
||||
(gnus-get-predicate display)))
|
||||
|
||||
;; Uses the dynamically bound `number' variable.
|
||||
(eval-when-compile
|
||||
(defvar number))
|
||||
(defvar number)
|
||||
(defun gnus-article-marked-p (type &optional article)
|
||||
(let ((article (or article number)))
|
||||
(cond
|
||||
|
@ -36,16 +36,16 @@
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
;; Fixme: this should be a gnus variable, not nnmail-.
|
||||
(defvar nnmail-pathname-coding-system)
|
||||
(defvar nnmail-active-file-coding-system)
|
||||
(require 'cl))
|
||||
;; Fixme: this should be a gnus variable, not nnmail-.
|
||||
(defvar nnmail-pathname-coding-system)
|
||||
(defvar nnmail-active-file-coding-system)
|
||||
|
||||
;; Inappropriate references to other parts of Gnus.
|
||||
(defvar gnus-emphasize-whitespace-regexp)
|
||||
(defvar gnus-original-article-buffer)
|
||||
(defvar gnus-user-agent)
|
||||
|
||||
;; Inappropriate references to other parts of Gnus.
|
||||
(defvar gnus-emphasize-whitespace-regexp)
|
||||
(defvar gnus-original-article-buffer)
|
||||
(defvar gnus-user-agent)
|
||||
)
|
||||
(require 'time-date)
|
||||
(require 'netrc)
|
||||
|
||||
@ -982,9 +982,10 @@ with potentially long computations."
|
||||
;; version fails halfway, however it provides the rmail-select-summary
|
||||
;; macro which uses the following functions:
|
||||
(autoload 'rmail-summary-displayed "rmail")
|
||||
(autoload 'rmail-maybe-display-summary "rmail")))
|
||||
(defvar rmail-default-rmail-file)
|
||||
(defvar mm-text-coding-system))
|
||||
(autoload 'rmail-maybe-display-summary "rmail"))))
|
||||
|
||||
(defvar rmail-default-rmail-file)
|
||||
(defvar mm-text-coding-system)
|
||||
|
||||
(defun gnus-output-to-rmail (filename &optional ask)
|
||||
"Append the current article to an Rmail file named FILENAME."
|
||||
@ -1551,8 +1552,7 @@ Return nil otherwise."
|
||||
display))
|
||||
display)))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar tool-bar-mode))
|
||||
(defvar tool-bar-mode)
|
||||
|
||||
(defun gnus-tool-bar-update (&rest ignore)
|
||||
"Update the tool bar."
|
||||
@ -1621,10 +1621,9 @@ predicate on the elements."
|
||||
(push (pop list1) res)))
|
||||
(nconc (nreverse res) list1 list2))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar xemacs-codename)
|
||||
(defvar sxemacs-codename)
|
||||
(defvar emacs-program-version))
|
||||
(defvar xemacs-codename)
|
||||
(defvar sxemacs-codename)
|
||||
(defvar emacs-program-version)
|
||||
|
||||
(defun gnus-emacs-version ()
|
||||
"Stringified Emacs version."
|
||||
|
@ -29,8 +29,7 @@
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(require 'imap)
|
||||
(eval-when-compile (defvar display-time-mail-function)))
|
||||
(require 'imap))
|
||||
(eval-and-compile
|
||||
(autoload 'pop3-movemail "pop3")
|
||||
(autoload 'pop3-get-message-count "pop3")
|
||||
@ -39,6 +38,9 @@
|
||||
(require 'mm-util)
|
||||
(require 'message) ;; for `message-directory'
|
||||
|
||||
(defvar display-time-mail-function)
|
||||
|
||||
|
||||
(defgroup mail-source nil
|
||||
"The mail-fetching library."
|
||||
:version "21.1"
|
||||
|
@ -32,9 +32,8 @@
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(defvar gnus-message-group-art)
|
||||
(defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
|
||||
(require 'cl))
|
||||
|
||||
(require 'hashcash)
|
||||
(require 'canlock)
|
||||
(require 'mailheader)
|
||||
@ -51,6 +50,9 @@
|
||||
(require 'rfc822)
|
||||
(require 'ecomplete)
|
||||
|
||||
(defvar gnus-message-group-art)
|
||||
(defvar gnus-list-identifiers) ; gnus-sum is required where necessary
|
||||
(defvar rmail-enable-mime-composing)
|
||||
|
||||
(defgroup message '((user-mail-address custom-variable)
|
||||
(user-full-name custom-variable))
|
||||
@ -474,8 +476,7 @@ This is used by `message-kill-buffer'."
|
||||
:group 'message-buffers
|
||||
:type 'boolean)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-local-organization))
|
||||
(defvar gnus-local-organization)
|
||||
(defcustom message-user-organization
|
||||
(or (and (boundp 'gnus-local-organization)
|
||||
(stringp gnus-local-organization)
|
||||
@ -816,9 +817,8 @@ might set this variable to '(\"-f\" \"you@some.where\")."
|
||||
:type '(choice (function)
|
||||
(repeat string)))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-post-method)
|
||||
(defvar gnus-select-method))
|
||||
(defvar gnus-post-method)
|
||||
(defvar gnus-select-method)
|
||||
(defcustom message-post-method
|
||||
(cond ((and (boundp 'gnus-post-method)
|
||||
(listp gnus-post-method)
|
||||
@ -1640,9 +1640,8 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
|
||||
(defvar message-inserted-headers nil)
|
||||
|
||||
;; Byte-compiler warning
|
||||
(eval-when-compile
|
||||
(defvar gnus-active-hashtb)
|
||||
(defvar gnus-read-active-file))
|
||||
(defvar gnus-active-hashtb)
|
||||
(defvar gnus-read-active-file)
|
||||
|
||||
;;; Regexp matching the delimiter of messages in UNIX mail format
|
||||
;;; (UNIX From lines), minus the initial ^. It should be a copy
|
||||
@ -2662,9 +2661,8 @@ Prefixed with two \\[universal-argument]'s, display the PGG manual."
|
||||
|
||||
(defvar message-tool-bar-map nil)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar facemenu-add-face-function)
|
||||
(defvar facemenu-remove-face-function))
|
||||
(defvar facemenu-add-face-function)
|
||||
(defvar facemenu-remove-face-function)
|
||||
|
||||
;;; Forbidden properties
|
||||
;;
|
||||
@ -3620,8 +3618,6 @@ Really top post? ")))
|
||||
(push (buffer-name buffer) buffers))))
|
||||
(nreverse buffers)))
|
||||
|
||||
(eval-when-compile (defvar mail-citation-hook)) ; Compiler directive
|
||||
|
||||
(defun message-cite-original-1 (strip-signature)
|
||||
"Cite an original message.
|
||||
If STRIP-SIGNATURE is non-nil, strips off the signature from the
|
||||
@ -6873,8 +6869,7 @@ the message."
|
||||
(setq subject (funcall func subject))))
|
||||
subject))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-article-decoded-p))
|
||||
(defvar gnus-article-decoded-p)
|
||||
|
||||
|
||||
;;;###autoload
|
||||
@ -7088,8 +7083,6 @@ is for the internal use."
|
||||
(rmail-msg-restore-non-pruned-header)))
|
||||
(message-forward-make-body forward-buffer))
|
||||
|
||||
(eval-when-compile (defvar rmail-enable-mime-composing))
|
||||
|
||||
;; Fixme: Should have defcustom.
|
||||
;;;###autoload
|
||||
(defun message-insinuate-rmail ()
|
||||
@ -7311,8 +7304,7 @@ which specify the range to operate on."
|
||||
(mapcar #'delete-overlay (overlays-in (point-min) (point-max)))))
|
||||
|
||||
;; Support for toolbar
|
||||
(eval-when-compile
|
||||
(defvar tool-bar-mode))
|
||||
(defvar tool-bar-mode)
|
||||
|
||||
;; Note: The :set function in the `message-tool-bar*' variables will only
|
||||
;; affect _new_ message buffers. We might add a function that walks thru all
|
||||
|
@ -26,14 +26,14 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(defvar mm-uu-decode-function)
|
||||
(defvar mm-uu-binhex-decode-function))
|
||||
|
||||
(require 'mm-util)
|
||||
(require 'rfc2047)
|
||||
(require 'mm-encode)
|
||||
|
||||
(defvar mm-uu-yenc-decode-function)
|
||||
(defvar mm-uu-decode-function)
|
||||
(defvar mm-uu-binhex-decode-function)
|
||||
|
||||
;; 8bit treatment gets any char except: 0x32 - 0x7f, LF, TAB, BEL,
|
||||
;; BS, vertical TAB, form feed, and ^_
|
||||
;;
|
||||
@ -171,8 +171,6 @@ If no encoding was done, nil is returned."
|
||||
;;; Functions for decoding
|
||||
;;;
|
||||
|
||||
(eval-when-compile (defvar mm-uu-yenc-decode-function))
|
||||
|
||||
(defun mm-decode-content-transfer-encoding (encoding &optional type)
|
||||
"Decodes buffer encoded with ENCODING, returning success status.
|
||||
If TYPE is `text/plain' CRLF->LF translation may occur."
|
||||
|
@ -895,7 +895,7 @@ external if displayed external."
|
||||
;; a vector in Emacs but is a list in XEmacs)
|
||||
;; requires that it is lexically scoped.
|
||||
(timer (run-at-time 2.0 nil 'ignore)))
|
||||
(if (boundp 'itimer-list)
|
||||
(if (featurep 'xemacs)
|
||||
(lambda (process state)
|
||||
(when (eq 'exit (process-status process))
|
||||
(if (memq timer itimer-list)
|
||||
@ -1364,34 +1364,35 @@ be determined."
|
||||
(mm-handle-set-cache handle spec))))))
|
||||
|
||||
(defun mm-create-image-xemacs (type)
|
||||
(cond
|
||||
((equal type "xbm")
|
||||
;; xbm images require special handling, since
|
||||
;; the only way to create glyphs from these
|
||||
;; (without a ton of work) is to write them
|
||||
;; out to a file, and then create a file
|
||||
;; specifier.
|
||||
(let ((file (mm-make-temp-file
|
||||
(expand-file-name "emm" mm-tmp-directory)
|
||||
nil ".xbm")))
|
||||
(unwind-protect
|
||||
(progn
|
||||
(write-region (point-min) (point-max) file)
|
||||
(make-glyph (list (cons 'x file))))
|
||||
(ignore-errors
|
||||
(delete-file file)))))
|
||||
(t
|
||||
(make-glyph
|
||||
(vector
|
||||
(or (mm-image-type-from-buffer)
|
||||
(intern type))
|
||||
:data (buffer-string))))))
|
||||
(when (featurep 'xemacs)
|
||||
(cond
|
||||
((equal type "xbm")
|
||||
;; xbm images require special handling, since
|
||||
;; the only way to create glyphs from these
|
||||
;; (without a ton of work) is to write them
|
||||
;; out to a file, and then create a file
|
||||
;; specifier.
|
||||
(let ((file (mm-make-temp-file
|
||||
(expand-file-name "emm" mm-tmp-directory)
|
||||
nil ".xbm")))
|
||||
(unwind-protect
|
||||
(progn
|
||||
(write-region (point-min) (point-max) file)
|
||||
(make-glyph (list (cons 'x file))))
|
||||
(ignore-errors
|
||||
(delete-file file)))))
|
||||
(t
|
||||
(make-glyph
|
||||
(vector
|
||||
(or (mm-image-type-from-buffer)
|
||||
(intern type))
|
||||
:data (buffer-string)))))))
|
||||
|
||||
(defun mm-image-fit-p (handle)
|
||||
"Say whether the image in HANDLE will fit the current window."
|
||||
(let ((image (mm-get-image handle)))
|
||||
(or (not image)
|
||||
(if (fboundp 'glyph-width)
|
||||
(if (featurep 'xemacs)
|
||||
;; XEmacs' glyphs can actually tell us about their width, so
|
||||
;; lets be nice and smart about them.
|
||||
(or mm-inline-large-images
|
||||
|
@ -36,6 +36,8 @@
|
||||
(require 'timer))
|
||||
(require 'timer)))
|
||||
|
||||
(defvar mm-mime-mule-charset-alist )
|
||||
|
||||
(eval-and-compile
|
||||
(mapc
|
||||
(lambda (elem)
|
||||
@ -884,9 +886,10 @@ This affects whether coding conversion should be attempted generally."
|
||||
(autoload 'latin-unity-massage-name "latin-unity")
|
||||
(autoload 'latin-unity-maybe-remap "latin-unity")
|
||||
(autoload 'latin-unity-representations-feasible-region "latin-unity")
|
||||
(autoload 'latin-unity-representations-present-region "latin-unity")
|
||||
(defvar latin-unity-coding-systems)
|
||||
(defvar latin-unity-ucs-list))
|
||||
(autoload 'latin-unity-representations-present-region "latin-unity"))
|
||||
|
||||
(defvar latin-unity-coding-systems)
|
||||
(defvar latin-unity-ucs-list)
|
||||
|
||||
(defun mm-xemacs-find-mime-charset-1 (begin end)
|
||||
"Determine which MIME charset to use to send region as message.
|
||||
@ -1440,7 +1443,7 @@ gzip, bzip2, etc. are allowed."
|
||||
(funcall (symbol-value 'set-auto-coding-function)
|
||||
nil (- (point-max) (point-min)))
|
||||
(error nil)))))
|
||||
((featurep 'file-coding) ;; XEmacs
|
||||
((and (featurep 'xemacs) (featurep 'file-coding)) ;; XEmacs
|
||||
(let ((case-fold-search t)
|
||||
(end (point-at-eol))
|
||||
codesys start)
|
||||
|
@ -305,11 +305,10 @@ apply the face `mm-uu-extract'."
|
||||
|
||||
(mm-uu-configure)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar file-name)
|
||||
(defvar start-point)
|
||||
(defvar end-point)
|
||||
(defvar entry))
|
||||
(defvar file-name)
|
||||
(defvar start-point)
|
||||
(defvar end-point)
|
||||
(defvar entry)
|
||||
|
||||
(defun mm-uu-uu-filename ()
|
||||
(if (looking-at ".+")
|
||||
@ -375,8 +374,7 @@ apply the face `mm-uu-extract'."
|
||||
(list mm-dissect-disposition
|
||||
(cons 'filename file-name))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-newsgroup-name))
|
||||
(defvar gnus-newsgroup-name)
|
||||
|
||||
(defun mm-uu-emacs-sources-test ()
|
||||
(setq file-name (match-string 1))
|
||||
@ -465,8 +463,7 @@ apply the face `mm-uu-extract'."
|
||||
(y-or-n-p "Verify pgp signed part? ")
|
||||
(message ""))))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar gnus-newsgroup-charset))
|
||||
(defvar gnus-newsgroup-charset)
|
||||
|
||||
(defun mm-uu-pgp-signed-extract-1 (handles ctl)
|
||||
(let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))
|
||||
|
@ -97,19 +97,20 @@
|
||||
(delete-region b (+ b 2)))))))
|
||||
|
||||
(defun mm-inline-image-xemacs (handle)
|
||||
(insert "\n\n")
|
||||
(forward-char -2)
|
||||
(let ((annot (make-annotation (mm-get-image handle) nil 'text))
|
||||
buffer-read-only)
|
||||
(mm-handle-set-undisplayer
|
||||
handle
|
||||
`(lambda ()
|
||||
(let ((b ,(point-marker))
|
||||
buffer-read-only)
|
||||
(delete-annotation ,annot)
|
||||
(delete-region (- b 2) b))))
|
||||
(set-extent-property annot 'mm t)
|
||||
(set-extent-property annot 'duplicable t)))
|
||||
(when (featurep 'xemacs)
|
||||
(insert "\n\n")
|
||||
(forward-char -2)
|
||||
(let ((annot (make-annotation (mm-get-image handle) nil 'text))
|
||||
buffer-read-only)
|
||||
(mm-handle-set-undisplayer
|
||||
handle
|
||||
`(lambda ()
|
||||
(let ((b ,(point-marker))
|
||||
buffer-read-only)
|
||||
(delete-annotation ,annot)
|
||||
(delete-region (- b 2) b))))
|
||||
(set-extent-property annot 'mm t)
|
||||
(set-extent-property annot 'duplicable t))))
|
||||
|
||||
(eval-and-compile
|
||||
(if (featurep 'xemacs)
|
||||
@ -568,7 +569,7 @@
|
||||
;; By default, XEmacs font-lock uses non-duplicable text
|
||||
;; properties. This code forces all the text properties
|
||||
;; to be copied along with the text.
|
||||
(when (fboundp 'extent-list)
|
||||
(when (featurep 'xemacs)
|
||||
(map-extents (lambda (ext ignored)
|
||||
(set-extent-property ext 'duplicable t)
|
||||
nil)
|
||||
|
@ -298,13 +298,13 @@ Whether the passphrase is cached at all is controlled by
|
||||
(defun mml-smime-openssl-verify-test (handle ctl)
|
||||
smime-openssl-program)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg"))
|
||||
(defvar epg-user-id-alist)
|
||||
(defvar epg-digest-algorithm-alist)
|
||||
(defvar inhibit-redisplay)
|
||||
(defvar password-cache-expiry)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar epg-user-id-alist)
|
||||
(defvar epg-digest-algorithm-alist)
|
||||
(defvar inhibit-redisplay)
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-context-set-armor "epg")
|
||||
(autoload 'epg-context-set-signers "epg")
|
||||
(autoload 'epg-context-result-for "epg")
|
||||
@ -319,10 +319,7 @@ Whether the passphrase is cached at all is controlled by
|
||||
(autoload 'epg-context-set-passphrase-callback "epg")
|
||||
(autoload 'epg-configuration "epg-config")
|
||||
(autoload 'epg-expand-group "epg-config")
|
||||
(autoload 'epa-select-keys "epa"))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar password-cache-expiry)
|
||||
(autoload 'epa-select-keys "epa")
|
||||
(autoload 'password-read "password")
|
||||
(autoload 'password-cache-add "password")
|
||||
(autoload 'password-cache-remove "password"))
|
||||
|
@ -53,6 +53,7 @@
|
||||
(defvar message-required-mail-headers)
|
||||
(defvar message-required-news-headers)
|
||||
(defvar dnd-protocol-alist)
|
||||
(defvar mml-dnd-protocol-alist)
|
||||
|
||||
(defcustom mml-content-type-parameters
|
||||
'(name access-type expiration size permission format)
|
||||
@ -807,9 +808,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
||||
(mail-header-encode-parameter
|
||||
(symbol-name type) value))))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar ange-ftp-name-format)
|
||||
(defvar efs-path-regexp))
|
||||
(defvar ange-ftp-name-format)
|
||||
(defvar efs-path-regexp)
|
||||
|
||||
(defun mml-parse-file-name (path)
|
||||
(if (if (boundp 'efs-path-regexp)
|
||||
(string-match efs-path-regexp path)
|
||||
|
@ -244,10 +244,9 @@ Whether the passphrase is cached at all is controlled by
|
||||
|
||||
;; pgg wrapper
|
||||
|
||||
(eval-when-compile
|
||||
(defvar pgg-default-user-id)
|
||||
(defvar pgg-errors-buffer)
|
||||
(defvar pgg-output-buffer))
|
||||
(defvar pgg-default-user-id)
|
||||
(defvar pgg-errors-buffer)
|
||||
(defvar pgg-output-buffer)
|
||||
|
||||
(defun mml1991-pgg-sign (cont)
|
||||
(let ((pgg-text-mode t)
|
||||
@ -313,11 +312,11 @@ Whether the passphrase is cached at all is controlled by
|
||||
|
||||
;; epg wrapper
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg"))
|
||||
(defvar epg-user-id-alist)
|
||||
(defvar password-cache-expiry)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar epg-user-id-alist)
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-passphrase-callback-function "epg")
|
||||
(autoload 'epa-select-keys "epa")
|
||||
(autoload 'epg-list-keys "epg")
|
||||
@ -328,10 +327,7 @@ Whether the passphrase is cached at all is controlled by
|
||||
(autoload 'epg-sign-string "epg")
|
||||
(autoload 'epg-encrypt-string "epg")
|
||||
(autoload 'epg-configuration "epg-config")
|
||||
(autoload 'epg-expand-group "epg-config"))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar password-cache-expiry)
|
||||
(autoload 'epg-expand-group "epg-config")
|
||||
(autoload 'password-read "password")
|
||||
(autoload 'password-cache-add "password")
|
||||
(autoload 'password-cache-remove "password"))
|
||||
|
@ -173,9 +173,8 @@ Whether the passphrase is cached at all is controlled by
|
||||
(autoload 'mc-cleanup-recipient-headers "mc-toplev")
|
||||
(autoload 'mc-sign-generic "mc-toplev"))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar mc-default-scheme)
|
||||
(defvar mc-schemes))
|
||||
(defvar mc-default-scheme)
|
||||
(defvar mc-schemes)
|
||||
|
||||
(defvar mml2015-decrypt-function 'mailcrypt-decrypt)
|
||||
(defvar mml2015-verify-function 'mailcrypt-verify)
|
||||
@ -707,10 +706,9 @@ Whether the passphrase is cached at all is controlled by
|
||||
|
||||
;;; pgg wrapper
|
||||
|
||||
(eval-when-compile
|
||||
(defvar pgg-default-user-id)
|
||||
(defvar pgg-errors-buffer)
|
||||
(defvar pgg-output-buffer))
|
||||
(defvar pgg-default-user-id)
|
||||
(defvar pgg-errors-buffer)
|
||||
(defvar pgg-output-buffer)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'pgg-decrypt-region "pgg")
|
||||
@ -945,13 +943,12 @@ Whether the passphrase is cached at all is controlled by
|
||||
|
||||
;;; epg wrapper
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg"))
|
||||
(defvar epg-user-id-alist)
|
||||
(defvar epg-digest-algorithm-alist)
|
||||
(defvar inhibit-redisplay)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar epg-user-id-alist)
|
||||
(defvar epg-digest-algorithm-alist)
|
||||
(defvar inhibit-redisplay)
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-context-set-armor "epg")
|
||||
(autoload 'epg-context-set-textmode "epg")
|
||||
(autoload 'epg-context-set-signers "epg")
|
||||
@ -972,8 +969,9 @@ Whether the passphrase is cached at all is controlled by
|
||||
(autoload 'epg-expand-group "epg-config")
|
||||
(autoload 'epa-select-keys "epa"))
|
||||
|
||||
(defvar password-cache-expiry)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar password-cache-expiry)
|
||||
(autoload 'password-read "password")
|
||||
(autoload 'password-cache-add "password")
|
||||
(autoload 'password-cache-remove "password"))
|
||||
|
@ -1085,7 +1085,7 @@ all. This may very well take some time.")
|
||||
(unless no-active
|
||||
(nnmail-save-active nndiary-group-alist nndiary-active-file))))))
|
||||
|
||||
(eval-when-compile (defvar files))
|
||||
(defvar files)
|
||||
(defun nndiary-generate-active-info (dir)
|
||||
;; Update the active info for this group.
|
||||
(let* ((group (nnheader-file-to-group
|
||||
|
@ -32,6 +32,9 @@
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(defvar nnmail-extra-headers)
|
||||
(defvar gnus-newsgroup-name)
|
||||
(defvar nnheader-file-coding-system)
|
||||
(defvar jka-compr-compression-info-list)
|
||||
|
||||
;; Requiring `gnus-util' at compile time creates a circular
|
||||
;; dependency between nnheader.el and gnus-util.el.
|
||||
@ -696,7 +699,6 @@ the line could be found."
|
||||
(erase-buffer))
|
||||
(current-buffer))
|
||||
|
||||
(eval-when-compile (defvar jka-compr-compression-info-list))
|
||||
(defvar nnheader-numerical-files
|
||||
(if (boundp 'jka-compr-compression-info-list)
|
||||
(concat "\\([0-9]+\\)\\("
|
||||
@ -939,9 +941,8 @@ first. Otherwise, find the newest one, though it may take a time."
|
||||
(car results)
|
||||
(car (sort results 'file-newer-than-file-p)))))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar ange-ftp-path-format)
|
||||
(defvar efs-path-regexp))
|
||||
(defvar ange-ftp-path-format)
|
||||
(defvar efs-path-regexp)
|
||||
(defun nnheader-re-read-dir (path)
|
||||
"Re-read directory PATH if PATH is on a remote system."
|
||||
(if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))
|
||||
|
@ -885,7 +885,7 @@ Unless no-active is non-nil, update the active file too."
|
||||
(unless no-active
|
||||
(nnmail-save-active nnml-group-alist nnml-active-file)))))))
|
||||
|
||||
(eval-when-compile (defvar files))
|
||||
(defvar files)
|
||||
(defun nnml-generate-active-info (dir)
|
||||
;; Update the active info for this group.
|
||||
(let ((group (directory-file-name dir))
|
||||
|
@ -195,9 +195,8 @@ used to render text. If it is nil, text will simply be folded.")
|
||||
(deffoo nnrss-close-group (group &optional server)
|
||||
t)
|
||||
|
||||
(eval-when-compile
|
||||
(defvar mm-text-html-renderer)
|
||||
(defvar mm-text-html-washer-alist))
|
||||
(defvar mm-text-html-renderer)
|
||||
(defvar mm-text-html-washer-alist)
|
||||
|
||||
(deffoo nnrss-request-article (article &optional group server buffer)
|
||||
(setq group (nnrss-decode-group-name group))
|
||||
|
@ -36,6 +36,7 @@
|
||||
;;; Code:
|
||||
|
||||
(require 'mail-utils)
|
||||
(defvar parse-time-months)
|
||||
|
||||
(defgroup pop3 nil
|
||||
"Post Office Protocol."
|
||||
@ -327,8 +328,6 @@ Return the response string if optional second argument is non-nil."
|
||||
(forward-char)))
|
||||
(set-marker end nil))
|
||||
|
||||
(eval-when-compile (defvar parse-time-months))
|
||||
|
||||
;; Copied from message-make-date.
|
||||
(defun pop3-make-date (&optional now)
|
||||
"Make a valid date header.
|
||||
|
@ -31,7 +31,7 @@
|
||||
;;; Code:
|
||||
|
||||
(require 'mm-util)
|
||||
(eval-when-compile (defvar mm-use-ultra-safe-encoding))
|
||||
(defvar mm-use-ultra-safe-encoding)
|
||||
|
||||
;;;###autoload
|
||||
(defun quoted-printable-decode-region (from to &optional coding-system)
|
||||
|
@ -30,8 +30,8 @@
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(defvar message-posting-charset))
|
||||
(require 'cl))
|
||||
(defvar message-posting-charset)
|
||||
|
||||
(require 'qp)
|
||||
(require 'mm-util)
|
||||
@ -285,7 +285,6 @@ Should be called narrowed to the head of the message."
|
||||
|
||||
;; Fixme: This, and the require below may not be the Right Thing, but
|
||||
;; should be safe just before release. -- fx 2001-02-08
|
||||
(eval-when-compile (defvar message-posting-charset))
|
||||
|
||||
(defun rfc2047-encodable-p ()
|
||||
"Return non-nil if any characters in current buffer need encoding in headers.
|
||||
|
@ -424,8 +424,7 @@ Any details (stdout and stderr) are left in the buffer specified by
|
||||
(insert-buffer-substring smime-details-buffer)
|
||||
nil))
|
||||
|
||||
(eval-when-compile
|
||||
(defvar from))
|
||||
(defvar from)
|
||||
|
||||
(defun smime-decrypt-region (b e keyfile)
|
||||
"Decrypt S/MIME message in region between B and E with key in KEYFILE.
|
||||
|
@ -352,7 +352,7 @@ will display info in the echo area."
|
||||
(message "Automatic display of crossref information was turned on")))
|
||||
|
||||
(defun reftex-start-itimer-once ()
|
||||
(and reftex-mode
|
||||
(and (featurep 'xemacs) reftex-mode
|
||||
(not (itimer-live-p reftex-auto-view-crossref-timer))
|
||||
(setq reftex-auto-view-crossref-timer
|
||||
(start-itimer "RefTeX Idle Timer"
|
||||
|
Loading…
Reference in New Issue
Block a user