+2000-11-08 Bj\e,Av\e(Brn Torkelsson <torkel@hpc2n.umu.se>
+
+ * gpg.el: In Xemacs it is called point-at-eol, not
+ line-end-position
+
+ * gpg.el (gpg-key-lessp): use string-lessp instead of
+ compare-strings (not available on XEmacs)
+
2000-11-16 Simon Josefsson <sj@extundo.com>
* gpg.el (gpg-command-verify-cleartext): New variable.
(gpg-verify-cleartext): New function.
+
+;; Local Variables:
+;; coding: iso-2022-7bit
+;; End:
(eval-when-compile
(require 'cl))
+
+(if (featurep 'xemacs)
+ (defalias 'line-end-position 'point-at-eol))
+
;;;; Customization:
;;; Customization: Groups:
(defun gpg-key-lessp (a b)
"Returns t if primary user ID of A is less than B."
- (let ((res (compare-strings (gpg-key-primary-user-id a) 0 nil
- (gpg-key-primary-user-id b) 0 nil
- t)))
- (if (eq res t)
- nil
- (< res 0))))
+ (string-lessp (gpg-key-primary-user-id a) (gpg-key-primary-user-id b) ))
;;; Accessing the key database:
-2000-11-22 dme@dme.org
+2000-11-22 17:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * message.el (message-setup): Discourage using mc-install-*-mode.
+
+ * gnus-setup.el (gnus-use-mailcrypt): Don't hook mail-crypt.
+
+2000-11-22 16:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-cite.el (gnus-cite-parse): Guess citation length.
+
+2000-11-22 14:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-ml.el (gnus-mailing-list-insinuate): New function.
+
+2000-11-22 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-ml.el (gnus-mailing-list-archive): Find the real url.
+
+2000-11-22 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-xmas.el (gnus-xmas-article-display-xface): Use
+ insert-buffer-substring.
+
+ * message.el (message-send-mail): Use buffer-substring-no-properties.
+ (message-send-news): Ditto.
+
+2000-11-22 David Edmondson <dme@dme.org>
* imap.el (imap-wait-for-tag): Message read info.
;;; Code:
(eval-when-compile (require 'cl))
+(eval-when-compile (require 'static))
(require 'gnus)
(require 'gnus-art)
(require 'gnus-range)
(require 'message) ; for message-cite-prefix-regexp
-(eval-when-compile (require 'static))
-
;;; Customization:
(defgroup gnus-cite nil
(gnus-article-search-signature)
(point)))
(prefix-regexp (concat "^\\(" message-cite-prefix-regexp "\\)"))
- alist entry start begin end numbers prefix mc-flag)
+ alist entry start begin end numbers prefix guess-limit mc-flag)
;; Get all potential prefixes in `alist'.
(while (< (point) max)
;; Each line.
(setq begin (point)
+ guess-limit (progn (skip-chars-forward "^> \t\r\n") (point))
end (progn (beginning-of-line 2) (point))
start end)
(goto-char begin)
;; Ignore standard Supercite attribution prefix.
- (when (looking-at gnus-supercite-regexp)
+ (when (and (< guess-limit (+ begin gnus-cite-max-prefix))
+ (looking-at gnus-supercite-regexp))
(if (match-end 1)
(setq end (1+ (match-end 1)))
(setq end (1+ begin))))
;; Ignore very long prefixes.
- (when (> end (+ (point) gnus-cite-max-prefix))
- (setq end (+ (point) gnus-cite-max-prefix)))
+ (when (> end (+ begin gnus-cite-max-prefix))
+ (setq end (+ begin gnus-cite-max-prefix)))
(while (re-search-forward prefix-regexp (1- end) t)
;; Each prefix.
(setq end (match-end 0)
(static-if (or (featurep 'xemacs)
(and (eq emacs-major-version 20)
(>= emacs-minor-version 3))
- (> emacs-major-version 20));-)
+ (>= emacs-major-version 21))
(forward-char (length prefix))
(move-to-column (string-width prefix)))
(skip-chars-forward " \t")
(gnus-mailing-list-mode 1)))
;;;###autoload
+(defun gnus-mailing-list-insinuate (&optional force)
+ "Setup group parameters from List-Post header.
+If FORCE is non-nil, replace the old ones."
+ (interactive "P")
+ (let ((list-post
+ (with-current-buffer gnus-original-article-buffer
+ (gnus-fetch-field "list-post"))))
+ (if list-post
+ (if (and (not force)
+ (gnus-group-get-parameter gnus-newsgroup-name 'to-list))
+ (gnus-message 1 "to-list is non-nil.")
+ (if (string-match "<mailto:\\([^>]*\\)>" list-post)
+ (setq list-post (match-string 1 list-post)))
+ (gnus-group-add-parameter gnus-newsgroup-name
+ (cons 'to-list list-post))
+ (gnus-mailing-list-mode 1))
+ (gnus-message 1 "no list-post in this message."))))
+
+;;;###autoload
(defun gnus-mailing-list-mode (&optional arg)
"Minor mode for providing mailing-list commands.
(let ((list-archive
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-archive"))))
- (cond (list-archive (browse-url list-archive))
+ (cond (list-archive
+ (if (string-match "<\\(http:[^>]*\\)>" list-archive)
+ (browse-url (match-string 1 list-archive))
+ (browse-url list-archive)))
(t (gnus-message 1 "no list-archive in this group")))))
;;; Utility functions
(setq load-path (cons gnus-mailcrypt-lisp-directory load-path)))
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
- (add-hook 'message-mode-hook 'mc-install-write-mode)
- (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
+;;; (add-hook 'message-mode-hook 'mc-install-write-mode)
+;;; (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(when gnus-use-mhe
(add-hook 'mh-folder-mode-hook 'mc-install-read-mode)
(add-hook 'mh-letter-mode-hook 'mc-install-write-mode)))
(autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
(autoload 'gnus-cache-write-active "gnus-cache")
(autoload 'gnus-set-summary-default-charset "gnus-i18n" nil t)
+(autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
(defcustom gnus-kill-summary-on-exit t
"*If non-nil, kill the summary buffer when you exit from it.
"g" gnus-summary-show-article
"s" gnus-summary-isearch-article
"P" gnus-summary-print-article
- "t" gnus-article-babel
- "d" gnus-summary-decrypt-article
- "v" gnus-summary-verify-article)
+ "M" gnus-mailing-list-insinuate
+ "t" gnus-article-babel)
(gnus-define-keys (gnus-summary-wash-map "W" gnus-summary-mode-map)
"b" gnus-article-add-buttons
["Fetch referenced articles" gnus-summary-refer-references t]
["Fetch current thread" gnus-summary-refer-thread t]
["Fetch article with id..." gnus-summary-refer-article t]
+ ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
["Redisplay" gnus-summary-show-article t])))
(easy-menu-define
gnus-summary-article-menu gnus-summary-mode-map ""
(let ((cur (current-buffer)))
(save-excursion
(gnus-set-work-buffer)
- (insert (format "%s" (buffer-substring beg end cur)))
+ (insert-buffer-substring cur beg end)
(gnus-xmas-call-region "uncompface")
(goto-char (point-min))
(insert "/* Width=48, Height=48 */\n")
adaptive-fill-regexp babel-history babel-translations
display-time-mail-function imap-password mail-mode-hook
mc-pgp-always-sign
+ nnoo-definition-alist
url-current-callback-func url-be-asynchronous
url-current-callback-data url-working-buffer
url-current-mime-headers w3-meta-charset-content-type-regexp
(save-excursion
(set-buffer message-encoding-buffer)
(erase-buffer)
- (insert-buffer message-edit-buffer)
+ ;; Avoid copying text props.
+ (insert (with-current-buffer message-edit-buffer
+ (buffer-substring-no-properties (point-min) (point-max))))
(funcall message-encode-function)
(while (and success
(setq elem (pop alist)))
(setq message-buffer-list
(nconc message-buffer-list (list (current-buffer))))))
-(defvar mc-modes-alist)
+;;;(defvar mc-modes-alist)
(defun message-setup (headers &optional replybuffer actions)
- (when (and (boundp 'mc-modes-alist)
- (not (assq 'message-mode mc-modes-alist)))
- (push '(message-mode (encrypt . mc-encrypt-message)
- (sign . mc-sign-message))
- mc-modes-alist))
+;;; (when (and (boundp 'mc-modes-alist)
+;;; (not (assq 'message-mode mc-modes-alist)))
+;;; (push '(message-mode (encrypt . mc-encrypt-message)
+;;; (sign . mc-sign-message))
+;;; mc-modes-alist))
(when actions
(setq message-send-actions actions))
(setq message-reply-buffer
projects / elisp / gnus.git- / commitdiff