Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 1856695b1fa9
children 59463afc5666
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
1128 (save-window-excursion 1128 (save-window-excursion
1129 (w3-parse-buffer (current-buffer)) 1129 (w3-parse-buffer (current-buffer))
1130 (setq buf (buffer-string)))) 1130 (setq buf (buffer-string))))
1131 (when buf 1131 (when buf
1132 (delete-region (point-min) (point-max)) 1132 (delete-region (point-min) (point-max))
1133 (insert-buffer-substring buf) 1133 (insert buf)
1134 (kill-buffer buf)) 1134 (kill-buffer buf))
1135 (widen) 1135 (widen)
1136 (goto-char (point-min)) 1136 (goto-char (point-min))
1137 (set-window-start (get-buffer-window (current-buffer)) (point-min)) 1137 (set-window-start (get-buffer-window (current-buffer)) (point-min))
1138 (set-buffer cbuf)))) 1138 (set-buffer cbuf))))
2462 (defun gnus-article-edit-article (exit-func) 2462 (defun gnus-article-edit-article (exit-func)
2463 "Start editing the contents of the current article buffer." 2463 "Start editing the contents of the current article buffer."
2464 (let ((winconf (current-window-configuration))) 2464 (let ((winconf (current-window-configuration)))
2465 (set-buffer gnus-article-buffer) 2465 (set-buffer gnus-article-buffer)
2466 (gnus-article-edit-mode) 2466 (gnus-article-edit-mode)
2467 (set-text-properties (point-min) (point-max) nil) 2467 (gnus-set-text-properties (point-min) (point-max) nil)
2468 (gnus-configure-windows 'edit-article) 2468 (gnus-configure-windows 'edit-article)
2469 (setq gnus-article-edit-done-function exit-func) 2469 (setq gnus-article-edit-done-function exit-func)
2470 (setq gnus-prev-winconf winconf) 2470 (setq gnus-prev-winconf winconf)
2471 (gnus-message 6 "C-c C-c to end edits"))) 2471 (gnus-message 6 "C-c C-c to end edits")))
2472 2472