Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!mit-eddie!uw-beaver!grace.cs.washington.edu!jeffb From: jeffb@grace.cs.washington.edu (Jeff Bowden) Newsgroups: gnu.emacs.gnus Subject: Re: sort-of-novice GNUS question Message-ID: Date: 13 Jun 89 12:19:34 GMT References: Sender: news@beaver.cs.washington.edu Distribution: gnu Organization: Thorn of Taxis Lines: 42 In-reply-to: karl@giza.cis.ohio-state.edu's message of 13 Jun 89 02:22:22 GMT In article karl@giza.cis.ohio-state.edu (Karl Kleinpaste) writes: >wisner@mica.berkeley.edu writes: > How do I get C-c C-y in news-reply mode to prefix yanked lines with angle > brackets instead of three spaces? > >I don't think you can unless you write your own mail-yank-original. > I hacked sendmail.el to do this. Perhaps someone should do it right and make a variable for the quote char. Here's a diff for the 18.52 sendmail.el 381,382c381,382 < (indent-with-angle-bracket start (mark) < (if arg (prefix-numeric-value arg) 3))) --- > (indent-rigidly start (mark) > (if arg (prefix-numeric-value arg) 3))) 385,403d384 < < (defun indent-with-angle-bracket (start end arg) < "Insert a single '>' at the start of each line preserving indentation. < `arg' is ignored (TODO: insert `arg' '>'s) < Called from a program, takes three arguments, START, END and ARG." < (interactive "r\np") < (save-excursion < (goto-char end) < (setq end (point-marker)) < (goto-char start) < (or (bolp) (forward-line 1)) < (while (< (point) end) < (let ((indent (current-indentation))) < (delete-region (point) (progn (skip-chars-forward " \t") (point))) < (insert '">") < (or (eolp) < (indent-to (max 0 (+ indent 0)) 0))) < (forward-line 1)) < (move-marker end nil))) -- "Liberty and Security are at war. Which side are you on?"