Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
534aa266
Commit
534aa266
authored
Nov 08, 2000
by
Dave Love
Browse files
Put some defvars in eval-when-compile.
parent
9e153fef
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
19 additions
and
14 deletions
+19
-14
lisp/gnus/message.el
lisp/gnus/message.el
+13
-10
lisp/gnus/mml.el
lisp/gnus/mml.el
+3
-2
lisp/gnus/nnheader.el
lisp/gnus/nnheader.el
+3
-2
No files found.
lisp/gnus/message.el
View file @
534aa266
...
...
@@ -260,7 +260,8 @@ should return the new buffer name."
:group
'message-buffers
:type
'boolean
)
(
defvar
gnus-local-organization
)
(
eval-when-compile
(
defvar
gnus-local-organization
))
(
defcustom
message-user-organization
(
or
(
and
(
boundp
'gnus-local-organization
)
(
stringp
gnus-local-organization
)
...
...
@@ -421,8 +422,9 @@ might set this variable to '(\"-f\" \"you@some.where\")."
Folding `References' makes ancient versions of INN create incorrect
NOV lines."
)
(
defvar
gnus-post-method
)
(
defvar
gnus-select-method
)
(
eval-when-compile
(
defvar
gnus-post-method
)
(
defvar
gnus-select-method
))
(
defcustom
message-post-method
(
cond
((
and
(
boundp
'gnus-post-method
)
(
listp
gnus-post-method
)
...
...
@@ -921,8 +923,9 @@ The first matched address (not primary one) is used in the From field."
(
defvar
message-posting-charset
nil
)
;; Byte-compiler warning
(
defvar
gnus-active-hashtb
)
(
defvar
gnus-read-active-file
)
(
eval-when-compile
(
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
...
...
@@ -1423,8 +1426,9 @@ Point is left at the beginning of the narrowed-to region."
[
"Body"
message-goto-body
t]
[
"Signature"
message-goto-signature
t]
))
(
defvar
facemenu-add-face-function
)
(
defvar
facemenu-remove-face-function
)
(
eval-when-compile
(
defvar
facemenu-add-face-function
)
(
defvar
facemenu-remove-face-function
))
;;;###autoload
(
defun
message-mode
()
...
...
@@ -1977,7 +1981,7 @@ prefix, and don't delete any headers."
(
insert
"\n"
))
(
funcall
message-citation-line-function
))))
(
defvar
mail-citation-hook
)
;Compiler directive
(
eval-when-compile
(
defvar
mail-citation-hook
)
)
;Compiler directive
(
defun
message-cite-original
()
"Cite function in the standard Message manner."
(
if
(
and
(
boundp
'mail-citation-hook
)
...
...
@@ -3538,7 +3542,7 @@ than 988 characters long, and if they are not, trim them until they are."
(
setq
message-buffer-list
(
nconc
message-buffer-list
(
list
(
current-buffer
))))))
(
defvar
mc-modes-alist
)
(
eval-when-compile
(
defvar
mc-modes-alist
)
)
(
defun
message-setup
(
headers
&optional
replybuffer
actions
)
(
when
(
and
(
boundp
'mc-modes-alist
)
(
not
(
assq
'message-mode
mc-modes-alist
)))
...
...
@@ -4361,7 +4365,6 @@ Do a `tab-to-tab-stop' if not in those headers."
(
message-expand-group
)
(
tab-to-tab-stop
)))
(
defvar
gnus-active-hashtb
)
(
defun
message-expand-group
()
"Expand the group name under point."
(
let*
((
b
(
save-excursion
...
...
lisp/gnus/mml.el
View file @
534aa266
...
...
@@ -507,8 +507,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
(
mail-header-encode-parameter
(
symbol-name
type
)
value
))))))
(
defvar
ange-ftp-name-format
)
(
defvar
efs-path-regexp
)
(
eval-when-compile
(
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
)
...
...
lisp/gnus/nnheader.el
View file @
534aa266
...
...
@@ -813,8 +813,9 @@ If FILE, find the \".../etc/PACKAGE\" file instead."
(
setq
path
(
cdr
path
))))
result
))
(
defvar
ange-ftp-path-format
)
(
defvar
efs-path-regexp
)
(
eval-when-compile
(
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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment