diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-20 21:27:14 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-20 21:27:14 +0000 |
| commit | 350f1ba9be1f73a65b06cd4fe6a9abd51b3af02f (patch) | |
| tree | 5332a1b04850ec1b2966b7faf2abca1498918e3f /lisp/mail/mailabbrev.el | |
| parent | 1390593bbf71eda739a2d2fdff8884a50f70c239 (diff) | |
| download | emacs-350f1ba9be1f73a65b06cd4fe6a9abd51b3af02f.tar.gz | |
(sendmail-pre-abbrev-expand-hook): When setting the
dummy value for abbrev-start-location, use (point-max) rather than
(point), so we won't delete a "-" that happens to be at point.
Diffstat (limited to 'lisp/mail/mailabbrev.el')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 27d54fed305..3245fc9e958 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -458,7 +458,7 @@ characters which may be a part of the name of a mail alias.") (expand-abbrev) ;; Now set it back to what it was before. (set-syntax-table mail-mode-header-syntax-table))) - (setq abbrev-start-location (point) ; This is the trick. + (setq abbrev-start-location (point-max) ; This is the trick. abbrev-start-location-buffer (current-buffer))) ;; We're not in a mail header where mail aliases should |