diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2013-01-11 14:40:54 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2013-01-11 14:40:54 +0400 |
| commit | 30818a239e7b1222ec776603aa29786638efbb47 (patch) | |
| tree | cdf9f8cceacfaa8daf78c6823354e93e450d8d48 /lisp/gnus | |
| parent | 10e714d51d98bf0cb4b01447b01ab5cec6b2f752 (diff) | |
| download | emacs-30818a239e7b1222ec776603aa29786638efbb47.tar.gz | |
Use point-max-marker and point-min-marker here and there.
* lisp/emacs-lisp/ert.el (ert-run-test): Use point-max-marker.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Likewise.
* lisp/gnus/gnus-async.el (gnus-async-article-callback): Likewise.
* lisp/erc/erc-dcc.el (erc-dcc-send-file): Use point-min-marker.
* lisp/gnus/gnus-art.el (gnus-mime-display-security): Use point-min-marker
and point-max-marker.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-async.el | 2 |
3 files changed, 8 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4c6e66604d2..0cea790792f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2013-01-11 Dmitry Antipov <dmantipov@yandex.ru> + + * gnus-art.el (gnus-mime-display-security): Use point-min-marker + and point-max-marker. + * gnus-async.el (gnus-async-article-callback): Use point-max-marker. + 2013-01-10 Uwe Brauer <oub@mat.ucm.es> (tiny change) * mml-smime.el (mml-smime-encrypt-to-self): New user option analogous diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 1b4cddc5009..25a555f3d8b 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -8688,9 +8688,7 @@ For example: gnus-mime-security-button-end-line-format)) (gnus-insert-mime-security-button handle))) (mm-set-handle-multipart-parameter - handle 'gnus-region - (cons (set-marker (make-marker) (point-min)) - (set-marker (make-marker) (point-max)))) + handle 'gnus-region (cons (point-min-marker) (point-max-marker))) (goto-char (point-max)))) (defun gnus-mime-security-run-function (function) diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index 41b0cc25006..c5d64332547 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -254,7 +254,7 @@ that was fetched." gnus-async-article-alist (cons (list (intern (format "%s-%d" group article) gnus-async-hashtb) - mark (set-marker (make-marker) (point-max)) + mark (point-max-marker) group article) gnus-async-article-alist)))) (if (not (gnus-buffer-live-p summary)) |