Lines Matching +defs:kill +defs:this +defs:buffer
120 "*How many buffers to keep before starting to kill them off."
125 "Function called to rename the buffer after sending it."
149 If this variable is nil, no such courtesy message will be added."
186 ;; Guess this one shouldn't be easy to customize...
189 `(signature . disabled)' to this list.
191 Don't touch this variable unless you really know what you're doing.
201 :type '(repeat sexp)) ; Fixme: improve this
230 header, remove it from this list."
275 "*Header lines matching this regexp will be deleted before posting.
299 the user what do do. In this case, the subject is matched against
302 old subject. In this case, `message-subject-trailing-was-regexp' is
315 The function `message-strip-subject-trailing-was' uses this regexp if
359 Archives \(such as groups.google.com\) respect this header."
367 "Note to insert why you wouldn't want this posting archived.
380 (make-variable-buffer-local 'message-cross-post-old-target)
385 you can explicitly override this setting by calling
436 "*Say whether to create a new message buffer to compose a message.
440 Generate the buffer name in the Message way (e.g., *mail*, *news*,
442 existing buffer of that name. If there is no such buffer, it will
446 Create the new buffer with the name generated in the Message way.
449 Similar to `unique' but the buffer name begins with \"*unsent \".
452 Similar to nil but the buffer name is simpler like *mail message*.
455 If this is a function, call that function with three parameters:
457 The function should return the new buffer name."
467 (defcustom message-kill-buffer-on-exit nil
468 "*Non-nil means that the message buffer will be killed after sending a message."
550 "*All headers that match this regexp will be deleted when resending a message."
561 "*All headers that match this regexp will be deleted when forwarding a message."
610 "Function to call to send the current buffer as mail.
631 "Function to call to send the current buffer as news.
691 If non-nil, this variable contains a list of functions which return
703 non-nil, each line of this file should be a mailing list address."
750 If this is nil, use `user-mail-address'. If it is the symbol
773 might set this variable to '(\"-f\" \"you@some.where\")."
796 Note that when posting from inside Gnus, for instance, this
815 are to be deleted and then re-generated before sending, so this variable
826 The function `message-setup' runs this hook."
851 "Hook run in a message mode buffer narrowed to the headers."
856 "Hook called narrowed to the headers when setting up a message buffer."
874 `writes:' to hide the cited text. If you change this line too much,
921 "*Function for modifying a citation just inserted in the mail buffer.
931 "*String to be inserted at the end of the message buffer.
941 "*Name of file containing the text inserted at end of message buffer.
972 If stringp, use this; if non-nil, use no host name (user name only)."
980 (defvar message-reply-buffer nil)
993 (defvar message-kill-actions nil
994 "A list of actions to be performed before killing a message buffer.")
1032 (let ((buffer (get-buffer-create " *temp*")))
1035 (set-buffer buffer)
1040 (kill-buffer buffer))))
1046 "*Set this non-nil if the system's mailer runs the header and body together.
1057 'message-kill-buffer 'message-send-hook)
1348 ;; XEmacs does it like this. For Emacs, we have to set the
1349 ;; `font-lock-defaults' buffer-local variable.
1397 and Emacs, you may use `iso-2022-7bit' for this value at your own risk.
1413 article matching this variable is used as the From field of
1427 subsequent addresses are subaddresses; this is used to indicate that
1431 the mail is sent. All addresses in this structure should be
1460 If this variable is nil, don't ask whether to reply to all recipients.
1461 If this variable is non-nil, pose the question \"Reply to all
1487 the external program \"idn\", must be installed for this
1499 (defvar message-buffer-list nil)
1500 (defvar message-this-is-news nil)
1501 (defvar message-this-is-mail nil)
1633 (autoload 'nndraft-request-associate-buffer "nndraft")
1656 "Ask QUESTION, displaying remaining args in a temporary buffer if SHOW."
1665 "Non-nil means the mark and region are currently active in this buffer."
1686 (with-temp-buffer
1700 (push (buffer-substring beg (point)) elems)
1717 (with-temp-buffer
1724 The buffer is expected to be narrowed to just the header of the message;
1743 "Narrow the buffer to the header on the current line."
1772 (defmacro message-with-reply-buffer (&rest forms)
1773 "Evaluate FORMS in the reply buffer, if it exists."
1774 `(when (and message-reply-buffer
1775 (buffer-name message-reply-buffer))
1777 (set-buffer message-reply-buffer)
1780 (put 'message-with-reply-buffer 'lisp-indent-function 0)
1781 (put 'message-with-reply-buffer 'edebug-form-spec '(body))
1785 (message-with-reply-buffer
1834 (with-temp-buffer
1853 (with-temp-buffer
1899 (buffer-string)))))
1905 Leading \"Re: \" is not stripped by this function. Use the function
1906 `message-strip-subject-re' for this."
1930 "to get rid of this query."
2024 ;; if we already did a crosspost before, kill old target
2153 "Remove HEADER in the narrowed buffer.
2199 "Narrow the buffer to the head of the message."
2219 "Narrow the buffer to the head of the message.
2225 "Narrow the buffer to the head of the message."
2238 "Say whether the current buffer contains a news message."
2239 (and (not message-this-is-mail)
2240 (or message-this-is-news
2248 "Say whether the current buffer contains a mail message."
2249 (and (not message-this-is-news)
2250 (or message-this-is-mail
2274 "Sort the buffer as headers using `message-rank' text props."
2299 (if (setq rank (length (memq (assq (intern (buffer-substring
2376 (define-key message-mode-map "\C-c\M-\C-y" 'message-yank-buffer)
2380 (define-key message-mode-map "\C-c\C-r" 'message-caesar-buffer-body)
2382 (define-key message-mode-map "\C-c\M-r" 'message-rename-buffer)
2386 (define-key message-mode-map "\C-c\C-k" 'message-kill-buffer)
2392 (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
2406 ["Yank Original" message-yank-original message-reply-buffer]
2409 ["Caesar (rot13) Message" message-caesar-buffer-body t]
2419 ["Kill To Signature" message-kill-to-signature t]
2421 ["Rename buffer" message-rename-buffer t]
2424 '(:help "Spellcheck this message"))]
2436 '(:help "Send this message"))]
2439 '(:help "File this draft message and exit"))]
2443 ["Kill Message" message-kill-buffer
2445 '(:help "Delete this message without sending"))]
2464 '(:help "Mark this message as important"))]
2467 '(:help "Mark this message as unimportant"))]
2515 ;; buffer.
2518 "Strip special properties from the message buffer.
2521 composing in various ways. If this option is set, message will strip
2522 these properties from the message composition buffer. However, some
2524 If you use one of these packages, turn this option off, and hope the
2532 ;; No reason this should be clutter up customize. We make it a
2566 (let ((buffer-read-only nil)
2604 C-c C-z `message-kill-to-signature' (kill the text up to the signature).
2605 C-c C-r `message-caesar-buffer-body' (rot13 the message body).
2613 (set (make-local-variable 'message-reply-buffer) nil)
2617 (set (make-local-variable 'message-kill-actions) nil)
2620 (setq buffer-offer-save t)
2661 (unless buffer-file-name
2663 (unless (buffer-base-buffer)
2664 ;; Don't enable multibyte on an indirect buffer. Maybe enabling
2826 in the current mail buffer, and appends the current `user-mail-address'.
2870 (let ((headers (message-with-reply-buffer
2878 E.g., if this list contains a member list with elements `Cc' and `To',
2887 "Insert the HEADERS, an alist, into the message buffer.
2916 (and message-reply-buffer
2917 (buffer-name message-reply-buffer)
2919 (set-buffer message-reply-buffer)
2969 (defun message-kill-to-signature ()
2976 (kill-region point (point))
3173 "Request a disposition notification (return receipt) to this message.
3174 Note that this should not be used in newsgroups."
3191 (kill-region b e)
3230 (defun message-caesar-buffer-body (&optional rotnum)
3231 "Caesar rotate all letters in the current buffer by 13 places.
3244 (defun message-pipe-buffer-body (program)
3245 "Pipe the message body in the current buffer through PROGRAM."
3253 (defun message-rename-buffer (&optional enter-string)
3254 "Rename the *message* buffer to \"*message* RECIPIENT\".
3255 If the function is run with a prefix, it will ask for a new buffer
3273 (read-string "New buffer name: " name-default)
3275 (rename-buffer name t)))))
3278 "Fill the paragraphs of a message yanked into this one.
3290 When this function returns, the region is again around the modified text.
3311 ;; Delete blank lines at the start of the buffer.
3316 ;; Delete blank lines at the end of the buffer.
3346 (let ((modified (buffer-modified-p)))
3347 (when (and message-reply-buffer
3349 (delete-windows-on message-reply-buffer t)
3351 (insert-buffer-substring message-reply-buffer)
3365 (defun message-yank-buffer (buffer)
3366 "Insert BUFFER into the current buffer and quote it."
3367 (interactive "bYank buffer: ")
3368 (let ((message-reply-buffer (get-buffer buffer)))
3376 (dolist (buffer (buffer-list t))
3377 (set-buffer buffer)
3380 (push (buffer-name buffer) buffers))))
3529 "Send message like `message-send', then, if no errors, exit from mail buffer."
3531 (let ((buf (current-buffer))
3534 (buffer-name buf))
3535 (if message-kill-buffer-on-exit
3536 (kill-buffer buf)
3537 (bury-buffer buf)
3538 (when (eq buf (current-buffer))
3545 Instead, just auto-save the buffer and then bury it."
3547 (set-buffer-modified-p t)
3548 (save-buffer)
3550 (message-bury (current-buffer))
3553 (defun message-kill-buffer ()
3554 "Kill the current buffer."
3556 (when (or (not (buffer-modified-p))
3557 (yes-or-no-p "Message modified; kill anyway? "))
3558 (let ((actions message-kill-actions)
3560 (auto-save-file-name buffer-auto-save-file-name)
3561 (file-name buffer-file-name)
3562 (modified (buffer-modified-p)))
3563 (setq buffer-file-name nil)
3564 (kill-buffer (current-buffer))
3570 ;; If the message buffer has lived in a dedicated window,
3571 ;; `kill-buffer' has killed the frame. Thus the
3584 (defun message-bury (buffer)
3585 "Bury this mail BUFFER."
3586 (let ((newbuf (other-buffer buffer)))
3587 (bury-buffer buffer)
3591 (switch-to-buffer newbuf))))
3594 "Send the message in the current buffer.
3649 ;; Mark the buffer as unmodified and delete auto-save.
3650 (set-buffer-modified-p nil)
3701 ;; It doesn't seem as if this is useful, since the invisible property
3759 (message-kill-all-overlays)
3802 (tembuf (message-generate-new-buffer-clone-locals " message temp"))
3803 (curbuf (current-buffer))
3821 (set-buffer curbuf)
3822 (copy-to-buffer tembuf p (car plist))
3823 (set-buffer tembuf)
3831 (setq header (buffer-substring (point-min) (point)))
3842 (setq header (buffer-string)))
3856 (mm-with-unibyte-current-buffer
3861 (erase-buffer)))
3862 (kill-buffer tembuf))))
3866 (let* ((tembuf (message-generate-new-buffer-clone-locals " message temp"))
3869 (mailbuf (current-buffer))
3870 (message-this-is-mail t)
3906 (set-buffer tembuf)
3907 (erase-buffer)
3909 (insert (with-current-buffer mailbuf
3910 (mml-buffer-substring-no-properties-except-hard-newlines
3922 (mail-encode-encoded-word-buffer)))
3953 (< (buffer-size) message-send-mail-partially-limit)
3959 (/ (buffer-size) 1000) "KB, is too large.
3976 (mm-with-unibyte-current-buffer
3981 (kill-buffer tembuf))
3982 (set-buffer mailbuf)
3986 "Send off the prepared buffer with sendmail."
3988 (message-generate-new-buffer-clone-locals
4013 (set-buffer errbuf)
4014 (erase-buffer))))
4034 ;; we'll let users override this.
4041 ;; unless this is a resend.
4052 (set-buffer errbuf)
4056 (if (not (zerop (buffer-size)))
4058 (buffer-string))))))
4060 (kill-buffer errbuf)))))
4063 "Pass the prepared message buffer to qmail-inject.
4065 to find out how to use this."
4088 ;; compare this with message-send-mail-with-sendmail and weep
4091 ;; all this is way cool coz it lets us keep the arguments entirely
4107 "Send the prepared message buffer with mh."
4110 (setq buffer-file-name name)
4125 "Send the prepared message buffer with `smtpmail-send-it'.
4126 This only differs from `smtpmail-send-it' that this command evaluates
4135 Do not use this for anything important, it is cryptographically weak."
4158 (let* ((tembuf (message-generate-new-buffer-clone-locals " *message temp*"))
4183 (messbuf (current-buffer))
4190 (message-this-is-news t)
4216 (set-buffer tembuf)
4217 (buffer-disable-undo)
4218 (erase-buffer)
4221 (with-current-buffer messbuf
4222 (mml-buffer-substring-no-properties-except-hard-newlines
4234 (mail-encode-encoded-word-buffer)))
4251 (kill-buffer tembuf))
4252 (set-buffer messbuf)
4264 "Return non-nil if this TYPE is not to be checked."
4337 (buffer-substring
4350 (buffer-substring (match-beginning 0)
4410 ;; KLUDGE to handle nnvirtual groups. Doing this right
4447 (if (= (length errors) 1) "this" "these")
4458 (if (= (length errors) 1) "this" "these")
4615 (if (> (buffer-size) 60000)
4618 (buffer-size)))
4659 "Return a \"checksum\" for the current buffer."
4673 "Process Fcc headers in the current buffer."
4675 (buf (current-buffer))
4683 (set-buffer (get-buffer-create " *message temp*"))
4684 (erase-buffer)
4685 (insert-buffer-substring buf)
4696 (mail-encode-encoded-word-buffer)))
4721 (kill-buffer (current-buffer))))))
4724 "Append this article to Unix/babyl mail file FILENAME."
4783 ;; We do all of this because XEmacs doesn't have the %z spec.
4808 ;; If you ever change this function, make sure the new version
4814 ;; Instead we use this randomly inited counter.
4835 ;; to this newsreader, other newsreaders might otherwise generate
4855 (with-temp-buffer
4866 (unless (zerop (buffer-size))
4867 (buffer-string)))))
4878 "Return the References header for this message."
4889 "Return the In-Reply-To header for this message."
4904 (with-temp-buffer
4915 (concat "\"" (buffer-string) "\"")))
4959 (with-temp-buffer
5006 (buffer-string))))
5069 ;; Default to this bogus thing.
5112 (with-temp-buffer
5119 (setq item (regexp-quote (buffer-substring begin end)))
5182 Headers already prepared in the buffer are not modified."
5205 (unless (buffer-modified-p)
5247 ;; This is an optional header. If the cdr of this
5249 ;; this header.
5259 ;; this function.
5267 ;; of this symbol, if any.
5271 ;; We couldn't generate a value for this header,
5293 ;; The value of this header was empty, so we clear
5306 '(message-deletable t face italic) (current-buffer)))))))
5353 ;;; Setting up a message buffer
5429 (with-temp-buffer
5449 ;; Only disallow folding for News messages. At this point the headers
5450 ;; have not been generated, thus we use message-this-is-news directly.
5451 (when (and message-this-is-news message-cater-to-broken-inn)
5467 ;; it into the buffer.
5469 (if (and message-this-is-news message-cater-to-broken-inn)
5529 (defun message-buffer-name (type &optional to group)
5530 "Return a new (unique) buffer name based on TYPE and TO."
5532 ;; Generate a new buffer name The Message Way.
5534 (generate-new-buffer-name
5548 (generate-new-buffer-name
5557 ;; Search for the existing message buffer with the specified name.
5560 (generate-new-buffer-name (concat "*" type " message*"))
5562 (message-buffer-name type to group))))
5576 (when (and (string-match regexp (setq b (buffer-name b)))
5577 (eq (with-current-buffer b major-mode)
5581 (buffer-list)))
5585 (defun message-pop-to-buffer (name &optional switch-function)
5586 "Pop to buffer NAME, and warn if it already exists and is modified."
5587 (let ((buffer (get-buffer name)))
5588 (if (and buffer
5589 (buffer-name buffer))
5590 (let ((window (get-buffer-window buffer 0)))
5592 ;; Raise the frame already displaying the message buffer.
5596 (funcall (or switch-function 'pop-to-buffer) buffer)
5597 (set-buffer buffer))
5598 (when (and (buffer-modified-p)
5604 (funcall (or switch-function 'pop-to-buffer) name)
5605 (set-buffer name))
5606 (erase-buffer)
5611 ;; We might have sent this buffer already. Delete it from the
5613 (setq message-buffer-list (delq (current-buffer) message-buffer-list))
5615 message-buffer-list
5616 (>= (length message-buffer-list) message-max-buffers))
5617 ;; Kill the oldest buffer -- unless it has been changed.
5618 (let ((buffer (pop message-buffer-list)))
5619 (when (and (buffer-name buffer)
5620 (not (buffer-modified-p buffer)))
5621 (kill-buffer buffer))))
5622 ;; Rename the buffer.
5625 ;; Note: mail-abbrevs of XEmacs renames buffer name behind Gnus.
5628 (buffer-name))
5629 (let ((name (match-string 2 (buffer-name)))
5647 (unless (string-equal name (buffer-name))
5648 (rename-buffer name t)))))
5649 ;; Push the current buffer onto the list.
5651 (setq message-buffer-list
5652 (nconc message-buffer-list (list (current-buffer))))))
5667 (if (not (and message-this-is-mail mua))
5670 (setq yank-action (list 'insert-buffer replybuffer)))
5719 (setq message-reply-buffer replybuffer)
5769 (set-buffer-modified-p nil)
5770 (setq buffer-undo-list nil)
5772 ;; Do this last to give it precedence over posting styles, etc.
5782 "Associate the message buffer with a file in the drafts directory."
5789 (nndraft-request-associate-buffer "drafts"))
5790 (setq buffer-file-name (expand-file-name
5798 (setq buffer-auto-save-file-name (make-auto-save-file-name)))
5800 (setq buffer-file-coding-system message-draft-coding-system)))
5803 "Disassociate the message buffer from the drafts directory."
5839 is a function used to switch to and display the mail buffer."
5841 (let ((message-this-is-mail t) replybuffer)
5843 (message-pop-to-buffer
5844 ;; Search for the existing message buffer if `continue' is non-nil.
5850 (message-buffer-name "mail" to))
5853 ;; insert-buffer.
5854 (and (consp yank-action) (eq (car yank-action) 'insert-buffer)
5868 (let ((message-this-is-news t))
5869 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups))
5918 You should normally obey the Mail-Followup-To: header. In this
5940 want to get rid of this query permanently.")))
5969 ;; Remove first duplicates. (Why not all duplicates? Is this a bug?)
6012 Useful functions to put in this list include:
6039 "Start editing a reply to the article in the current buffer."
6042 (let ((cur (current-buffer))
6046 (message-this-is-mail t)
6078 (message-pop-to-buffer
6079 (message-buffer-name
6093 "Make a \"wide\" reply to the message in the current buffer."
6099 "Follow up to the message in the current buffer.
6103 (let ((cur (current-buffer))
6107 (message-this-is-news t)
6142 (message-pop-to-buffer (message-buffer-name "followup" from newsgroups))
6167 want to get rid of this query permanently."))
6169 (setq message-this-is-news nil)
6193 want to get rid of this query permanently."))
6270 ;; Make sure that this article was written by the user.
6273 (when (yes-or-no-p "Do you really want to cancel this article? ")
6277 (setq buf (set-buffer (get-buffer-create " *message cancel*"))))
6278 (erase-buffer)
6295 (kill-buffer buf))))))
6303 (let ((cur (current-buffer)))
6307 ;; Get a normal message buffer.
6308 (message-pop-to-buffer (message-buffer-name "supersede"))
6309 (insert-buffer-substring cur)
6317 (error "No Message-ID in this article")
6326 "Reread contents of current buffer from its last auto-save file."
6331 (with-output-to-temp-buffer "*Directory*"
6332 (with-current-buffer standard-output
6334 (buffer-disable-undo standard-output)
6339 (let ((buffer-read-only nil))
6340 (erase-buffer)
6349 (with-temp-buffer
6375 (buffer-string)))
6426 "Return a Subject header suitable for the message in the current buffer."
6462 (let* ((cur (current-buffer))
6464 (if (local-variable-p 'gnus-article-decoded-p (current-buffer))
6465 gnus-article-decoded-p ;; In an article buffer.
6473 (defun message-forward-make-body-plain (forward-buffer)
6478 (with-temp-buffer
6481 (with-current-buffer forward-buffer
6482 (mm-with-unibyte-current-buffer (buffer-string))))
6488 (buffer-string)))
6500 (defun message-forward-make-body-mime (forward-buffer)
6505 (mml-insert-buffer forward-buffer)
6513 (defun message-forward-make-body-mml (forward-buffer)
6518 (with-temp-buffer
6521 (with-current-buffer forward-buffer
6522 (mm-with-unibyte-current-buffer (buffer-string))))
6528 (buffer-string)))
6531 (mml-insert-buffer forward-buffer)
6547 (defun message-forward-make-body-digest-plain (forward-buffer)
6551 (mml-insert-buffer forward-buffer)
6556 (defun message-forward-make-body-digest-mime (forward-buffer)
6559 (insert-buffer-substring forward-buffer)
6569 (defun message-forward-make-body-digest (forward-buffer)
6571 (message-forward-make-body-digest-mime forward-buffer)
6572 (message-forward-make-body-digest-plain forward-buffer)))
6575 (defun message-forward-make-body (forward-buffer &optional digest)
6582 (message-forward-make-body-digest forward-buffer)
6586 (with-current-buffer forward-buffer
6591 (message-forward-make-body-mml forward-buffer)
6592 (message-forward-make-body-mime forward-buffer))
6593 (message-forward-make-body-plain forward-buffer)))
6597 (defun message-forward-rmail-make-body (forward-buffer)
6599 (set-buffer forward-buffer)
6604 (message-forward-make-body forward-buffer))
6624 (let ((cur (current-buffer))
6626 ;; We first set up a normal mail buffer.
6628 (set-buffer (get-buffer-create " *message resend*"))
6629 (erase-buffer))
6630 (let ((message-this-is-mail t)
6648 (insert-buffer-substring cur)
6670 (kill-buffer (current-buffer)))
6680 (let ((handles (mm-dissect-buffer t))
6682 (message-pop-to-buffer (message-buffer-name "bounce"))
6721 "Like `message-mail' command, but display mail buffer in another window."
6725 (special-display-buffer-names nil)
6727 (same-window-buffer-names nil)
6729 (message-pop-to-buffer (message-buffer-name "mail" to))))
6730 (let ((message-this-is-mail t))
6732 nil nil nil 'switch-to-buffer-other-window)))
6736 "Like `message-mail' command, but display mail buffer in another frame."
6740 (special-display-buffer-names nil)
6742 (same-window-buffer-names nil)
6744 (message-pop-to-buffer (message-buffer-name "mail" to))))
6745 (let ((message-this-is-mail t))
6747 nil nil nil 'switch-to-buffer-other-frame)))
6754 (special-display-buffer-names nil)
6756 (same-window-buffer-names nil)
6758 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
6759 (let ((message-this-is-news t))
6768 (special-display-buffer-names nil)
6770 (same-window-buffer-names nil)
6772 (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
6773 (let ((message-this-is-news t))
6821 (defun message-kill-all-overlays ()
6866 (flyspell-buffer "spell" t
6869 :help "Flyspell whole buffer")
6873 (message-kill-buffer "close") ;; stock_cancel
6894 (message-kill-buffer "close")
6912 '(new-file open-file dired kill-buffer write-file
6913 print-buffer customize help)
6992 (with-temp-buffer
6993 (let ((standard-output (current-buffer)))
7013 (string (buffer-substring b (progn (skip-chars-forward "^,\t\n ")
7034 (pop-to-buffer "*Completions*")
7035 (buffer-disable-undo)
7036 (let ((buffer-read-only nil))
7037 (erase-buffer)
7038 (let ((standard-output (current-buffer)))
7041 (setq buffer-read-only nil)
7054 If SHOW is non-nil, the arguments TEXT... are displayed in a temp buffer.
7060 (with-output-to-temp-buffer " *MESSAGE information message*"
7061 (set-buffer " *MESSAGE information message*")
7078 (defun message-generate-new-buffer-clone-locals (name &optional varstr)
7079 "Create and return a buffer with name based on NAME using `generate-new-buffer'.
7080 Then clone the local variables and values from the old buffer to the
7083 (let ((oldbuf (current-buffer)))
7085 (set-buffer (generate-new-buffer name))
7087 (current-buffer))))
7089 (defun message-clone-locals (buffer &optional varstr)
7090 "Clone the local variables from BUFFER to the current buffer."
7092 (set-buffer buffer)
7093 (buffer-local-variables)))
7130 (setq lines (buffer-substring (point-min) (1- (point))))