On Thu, Dec 25 2008, Sivaram Neelakantan wrote:
> The key C-c C-e currently elides a region of text and produces the
> following
[snipped 6 lines, 73 chars]
> Ideally, [...] or [snipped x lines] can be made default with the
> option of the user being able to change the text.
How about the following?
(setq message-elide-ellipsis "\n[snipped %l lines, %c chars]\n\n")
(defun rs-message-elide-region (b e)
"Elide the text in the region.
An ellipsis (from `message-elide-ellipsis') will be inserted where the
text was killed."
(interactive "r")
(let ((lines (count-lines b e))
(chars (- e b)))
(kill-region b e)
(insert (format-spec message-elide-ellipsis
`((?l . ,lines)
(?c . ,chars))))))
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
