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
30eaaa34
Commit
30eaaa34
authored
Apr 30, 1998
by
Richard M. Stallman
Browse files
(expand-mail-aliases): Doc fix.
(expand-mail-aliases, mail-complete): Use mail-header-end.
parent
13aa1cde
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
5 deletions
+3
-5
lisp/mail/mailalias.el
lisp/mail/mailalias.el
+3
-5
No files found.
lisp/mail/mailalias.el
View file @
30eaaa34
...
...
@@ -161,7 +161,7 @@ When t this still needs to be initialized.")
;;;###autoload
(
defun
expand-mail-aliases
(
beg
end
&optional
exclude
)
"Expand all mail aliases in suitable header fields found between BEG and END.
If interactive, expand in header fields
before `mail-header-separator'
.
If interactive, expand in header fields.
Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and
their `Resent-' variants.
...
...
@@ -170,7 +170,7 @@ removed from alias expansions."
(
interactive
(
save-excursion
(
list
(
goto-char
(
point-min
))
(
search-forward
(
concat
"\n"
mail-header-separator
"\n"
)
))))
(
mail-header-end
))))
(
sendmail-sync-aliases
)
(
when
(
eq
mail-aliases
t
)
(
setq
mail-aliases
nil
)
...
...
@@ -375,9 +375,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any."
(
if
(
file-exists-p
mail-personal-alias-file
)
(
build-mail-aliases
))))
(
let
((
list
mail-complete-alist
))
(
if
(
and
(
save-excursion
(
search-forward
(
concat
"\n"
mail-header-separator
"\n"
)
nil
t
))
(
if
(
and
(
>
0
(
mail-header-end
))
(
save-excursion
(
if
(
re-search-backward
"^[^\t]"
nil
t
)
(
while
list
...
...
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