Lines Matching +defs:tool +defs:bar +defs:lines
195 `invisible-text', `long-header-lines', `long-lines', `message-id',
275 "*Header lines matching this regexp will be deleted before posting.
297 "*What to do with trailing \"(was: <old subject>)\" in subject lines.
782 NOV lines.")
883 "*Prefix inserted on the lines of yanked messages.
891 "*Prefix inserted on cited or empty lines of yanked messages.
984 \[number subject from date id references chars lines xref extra].")
998 (define-widget 'message-header-lines 'text
999 "All header lines must be LFD terminated."
1002 :error "All header lines must be newline terminated")
1005 "*A string containing header lines to be inserted in outgoing messages.
1007 these lines."
1010 :type 'message-header-lines)
1013 "*A string of header lines to be inserted in outgoing mails."
1017 :type 'message-header-lines)
1020 "*A string of header lines to be inserted in outgoing news articles."
1024 :type 'message-header-lines)
1513 ;;; (UNIX From lines), minus the initial ^. It should be a copy
1660 "Delete the current line (and the next N lines)."
1806 "Remove \"Re:\" from subject lines in string SUBJECT."
1904 "Remove trailing \"(was: <old subject>)\" from SUBJECT lines.
2505 (defvar message-tool-bar-map nil)
2647 (if (boundp 'tool-bar-map)
2648 (set (make-local-variable 'tool-bar-map) (message-make-tool-bar))))
2687 "[ \t]*$\\|" ; blank lines
2691 ".*wrote:$\\|" ; attribution lines
2692 quote-prefix-regexp "$\\|" ; empty lines in quoted text
2893 ;; (mail-strip-quoted-names "Foo Bar <foo@bar>, bla@fasel (Bla Fasel)")
3311 ;; Delete blank lines at the start of the buffer.
3316 ;; Delete blank lines at the end of the buffer.
3411 ;; Also peel off any blank lines before the signature.
3851 (insert "Lines: " (message-make-lines) "\n"))
3897 (if (y-or-n-p "Fix continuation lines? ")
4170 ;; Newsgroups and Followup-To lines to allow crossposting
4309 ;; Check long header lines.
4310 (message-check 'long-header-lines
4467 (if (y-or-n-p "Fix continuation lines? ")
4573 ;; Check for long lines.
4574 (message-check 'long-lines
4589 "You have lines longer than 79 characters. Really post? ")))
4633 (if (> (count-lines (point) (point-max)) 5)
4636 "Your .sig is %d lines; it should be max 4. Really post? "
4637 (1- (count-lines (point) (point-max)))))
4732 ;; Remove empty lines in the header.
4735 ;; Remove blank lines.
4869 (defun message-make-lines ()
4870 "Count the number of lines and return numeric string."
4875 (int-to-string (count-lines (point) (point-max))))))
5197 (Lines (message-make-lines))
5963 ;; Convert string to a list of (("foo@bar" . "Name <Foo@BAR>") ...).
6357 ;; and gnus-style forwards [foo@bar.com] subject
6661 ;; Quote any "From " lines at the beginning.
6828 (defvar tool-bar-mode))
6830 ;; Note: The :set function in the `message-tool-bar*' variables will only
6833 (defun message-tool-bar-update (&optional symbol value)
6836 (setq-default message-tool-bar-map nil)
6841 (defcustom message-tool-bar (if (eq gmm-tool-bar-style 'gnome)
6842 'message-tool-bar-gnome
6843 'message-tool-bar-retro)
6844 "Specifies the message mode tool bar.
6847 `gmm-tool-bar-from-list' for the format of the list. The
6850 Pre-defined symbols include `message-tool-bar-gnome' and
6851 `message-tool-bar-retro'."
6852 :type '(repeat gmm-tool-bar-list-item)
6853 :type '(choice (const :tag "GNOME style" message-tool-bar-gnome)
6854 (const :tag "Retro look" message-tool-bar-retro)
6855 (repeat :tag "User defined list" gmm-tool-bar-item)
6859 :set 'message-tool-bar-update
6862 (defcustom message-tool-bar-gnome
6882 "List of items for the message tool bar (GNOME style).
6884 See `gmm-tool-bar-from-list' for details on the format of the list."
6885 :type '(repeat gmm-tool-bar-item)
6888 :set 'message-tool-bar-update
6891 (defcustom message-tool-bar-retro
6902 "List of items for the message tool bar (retro style).
6904 See `gmm-tool-bar-from-list' for details on the format of the list."
6905 :type '(repeat gmm-tool-bar-item)
6908 :set 'message-tool-bar-update
6911 (defcustom message-tool-bar-zap-list
6914 "List of icon items from the global tool bar.
6915 These items are not displayed on the message mode tool bar.
6917 See `gmm-tool-bar-from-list' for the format of the list."
6918 :type 'gmm-tool-bar-zap-list
6921 :set 'message-tool-bar-update
6926 (defun message-make-tool-bar (&optional force)
6927 "Make a message mode tool bar from `message-tool-bar-list'.
6928 When FORCE, rebuild the tool bar."
6930 (boundp 'tool-bar-mode)
6931 tool-bar-mode
6932 (or (not message-tool-bar-map) force))
6933 (setq message-tool-bar-map
6941 (gmm-tool-bar-from-list message-tool-bar
6942 message-tool-bar-zap-list
6944 message-tool-bar-map)
6961 "Alist of (RE . FUN). Use FUN for completion on header lines matching RE."
7118 lines content-type-p)
7130 (setq lines (buffer-substring (point-min) (1- (point))))
7137 (when lines
7138 (insert lines))