Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 64631:4556f884d581
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-495
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 95)
- Update from CVS
2005-07-25 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-art.el (gnus-article-next-page): Revert.
(gnus-article-beginning-of-window): New macro.
(gnus-article-next-page-1): Use it.
(gnus-article-prev-page): Ditto.
(gnus-mime-save-part-and-strip): Use insert-buffer-substring
instead of insert-buffer.
(gnus-mime-delete-part): Ditto.
(gnus-article-edit-exit): Ditto.
* lisp/gnus/gnus-util.el (gnus-beginning-of-window): Remove.
(gnus-end-of-window): Remove.
* lisp/gnus/lpath.el: Don't bind scroll-margin.
2005-07-25 Simon Josefsson <jas@extundo.com>
* lisp/gnus/pgg.el (pgg-insert-url-with-w3): Don't load w3, it is possible
to have the url package without w3. Reported by Daiki Ueno
<ueno@unixuser.org> and Luigi Panzeri <matley@muppetslab.org>.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 25 Jul 2005 21:35:55 +0000 |
| parents | 722ca9969d93 |
| children | fafd692d1e40 890cc78a5a24 |
comparison
equal
deleted
inserted
replaced
| 64630:4e0e85061ae3 | 64631:4556f884d581 |
|---|---|
| 1575 (defalias 'gnus-set-process-query-on-exit-flag | 1575 (defalias 'gnus-set-process-query-on-exit-flag |
| 1576 'set-process-query-on-exit-flag) | 1576 'set-process-query-on-exit-flag) |
| 1577 (defalias 'gnus-set-process-query-on-exit-flag | 1577 (defalias 'gnus-set-process-query-on-exit-flag |
| 1578 'process-kill-without-query)) | 1578 'process-kill-without-query)) |
| 1579 | 1579 |
| 1580 (defun gnus-beginning-of-window () | |
| 1581 "Move point to the beginning of the window." | |
| 1582 (move-to-window-line | |
| 1583 (if (featurep 'xemacs) | |
| 1584 0 | |
| 1585 (min scroll-margin | |
| 1586 (max 1 (- (window-height) | |
| 1587 (if mode-line-format 1 0) | |
| 1588 (if (and (boundp 'header-line-format) | |
| 1589 (symbol-value 'header-line-format)) | |
| 1590 1 0))))))) | |
| 1591 | |
| 1592 (defun gnus-end-of-window () | |
| 1593 "Move point to the end of the window." | |
| 1594 (move-to-window-line | |
| 1595 (if (featurep 'xemacs) | |
| 1596 -1 | |
| 1597 (max (- -1 scroll-margin) | |
| 1598 (- -1 (max 1 (- (window-height) | |
| 1599 (if mode-line-format 1 0) | |
| 1600 (if (and (boundp 'header-line-format) | |
| 1601 (symbol-value 'header-line-format)) | |
| 1602 1 0)))))))) | |
| 1603 | |
| 1604 (provide 'gnus-util) | 1580 (provide 'gnus-util) |
| 1605 | 1581 |
| 1606 ;;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49 | 1582 ;;; arch-tag: f94991af-d32b-4c97-8c26-ca12a934de49 |
| 1607 ;;; gnus-util.el ends here | 1583 ;;; gnus-util.el ends here |