Changeset 4210 for trunk/lisp/gnus/message.el
- Timestamp:
- 06/02/07 09:29:41 (1 year ago)
- Files:
-
- trunk/lisp/gnus/message.el (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/gnus/message.el
r4204 r4210 2226 2226 (narrow-to-region 2227 2227 (goto-char (point-min)) 2228 (cond 2229 ((re-search-forward 2230 (concat "^" (regexp-quote mail-header-separator) "\n") nil t) 2231 (match-beginning 0)) 2232 ((search-forward "\n\n" nil t) 2233 (1- (point))) 2234 (t 2235 (point-max)))) 2228 (if (re-search-forward (concat "\\(\n\\)\n\\|^\\(" 2229 (regexp-quote mail-header-separator) 2230 "\n\\)") 2231 nil t) 2232 (or (match-end 1) (match-beginning 2)) 2233 (point-max))) 2236 2234 (goto-char (point-min))) 2237 2235 … … 5579 5577 new))))) 5580 5578 5581 (defun message-pop-to-buffer (name )5579 (defun message-pop-to-buffer (name &optional switch-function) 5582 5580 "Pop to buffer NAME, and warn if it already exists and is modified." 5583 5581 (let ((buffer (get-buffer name))) … … 5590 5588 (gnus-select-frame-set-input-focus (window-frame window)) 5591 5589 (select-window window)) 5592 (set-buffer (pop-to-buffer buffer))) 5590 (funcall (or switch-function 'pop-to-buffer) buffer) 5591 (set-buffer buffer)) 5593 5592 (when (and (buffer-modified-p) 5594 5593 (not (prog1 … … 5597 5596 (message nil)))) 5598 5597 (error "Message being composed"))) 5599 (set-buffer (pop-to-buffer name))) 5598 (funcall (or switch-function 'pop-to-buffer) name) 5599 (set-buffer name)) 5600 5600 (erase-buffer) 5601 5601 (message-mode))) … … 5834 5834 (let ((message-this-is-mail t) replybuffer) 5835 5835 (unless (message-mail-user-agent) 5836 (funcall 5837 (or switch-function 'message-pop-to-buffer) 5836 (message-pop-to-buffer 5838 5837 ;; Search for the existing message buffer if `continue' is non-nil. 5839 5838 (let ((message-generate-new-buffers … … 5842 5841 (functionp message-generate-new-buffers)) 5843 5842 message-generate-new-buffers))) 5844 (message-buffer-name "mail" to)))) 5843 (message-buffer-name "mail" to)) 5844 switch-function)) 5845 5845 ;; FIXME: message-mail should do something if YANK-ACTION is not 5846 5846 ;; insert-buffer.
