Anonymous avatar Anonymous committed 47b2704

Sync Gnus to version 5.8.8 & Sync VM to version 6.90

Comments (0)

Files changed (17)

+2001-02-08  Steve Youngs  <youngs@xemacs.org>
+
+	* Sync with VM-6.90
+
 2001-01-10  Steve Youngs  <youngs@xemacs.org>
 
 	* Sync with VM-6.89.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.26
-AUTHOR_VERSION = 6.89
+VERSION = 1.27
+AUTHOR_VERSION = 6.90
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = vm
 PKG_TYPE = regular
-;;; Tools to configure your GNU Emacs windows.
+;;; Tools to configure your GNU Emacs windows
 ;;; Copyright (C) 1991, 1993, 1994, 1995, 1997 Kyle E. Jones 
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
-;;; easymenu.el --- support the easymenu interface for defining a menu
+;;; easymenu.el --- support the easymenu interface for defining a menu.
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
-;;; Code to show VM's warranty and copying restrictions.
+;;; Code to show VM's warranty and copying restrictions
 ;;; Copyright (C) 1989, 1994 Kyle E. Jones
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or, (at your option)
+;;; the Free Software Foundation; either version 1, or (at your option)
 ;;; any later version.
 ;;;
 ;;; This program is distributed in the hope that it will be useful,
-;;; Commands for handling messages marks.
+;;; Commands for handling messages marks
 ;;; Copyright (C) 1990, 1993, 1994 Kyle E. Jones
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 	(author (vm-su-from (car vm-message-pointer))))
     (while mp
       (if (and (not (eq (vm-mark-of (car mp)) mark))
-	       (string-equal author (vm-su-from (car mp))))
+	       (vm-string-equal-ignore-case author (vm-su-from (car mp))))
 	  (progn
 	    (vm-set-mark-of (car mp) mark)
 	    (vm-increment mark-count)
-;;; Macros and functions dealing with accessing VM message struct fields.
+;;; Macros and functions dealing with accessing VM message struct fields
 ;;; Copyright (C) 1989-1997 Kyle E. Jones
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 		layout
 		(format "Inline HTML display failed: %s"
 			(prin1-to-string error-data)))
+	       (message "%s" (vm-mm-layout-display-error layout))
+	       (sleep-for 2)
 	       nil ))
     (vm-set-mm-layout-display-error layout "Need W3 to inline HTML")
+    (message "%s" (vm-mm-layout-display-error layout))
+    (sleep-for 2)
     nil ))
 
 (defun vm-mime-display-internal-text/plain (layout &optional no-highlighting)
     (condition-case errdata
 	(enriched-decode start end)
       (error (vm-set-mm-layout-display-error
-	      layout (format "enriched-decode signaled %s" errdata))))
+	      layout (format "enriched-decode signaled %s" errdata))
+	     (message "%s" (vm-mm-layout-display-error layout))
+	     (sleep-for 2)
+	     nil ))
     (vm-energize-urls-in-message-region start end)
     (goto-char end)
     (message "Decoding text/enriched... done")
   (interactive)
   (let ((opoint (point))
 	;; In Emacs 21, during a minibuffer read the minibuffer
-	;; contains propt as buffer text and that text is read
-	;; only.  So we can no longer assume that (point-min) is
-	;; where the user-entered text starts and we must avoid
-	;; modifying that prompt text.  Calling
-	;; previous-property-change is a kludge but it does the
-	;; job.
-	(point-min (previous-property-change (point) nil (point-min)))
+	;; contains the prompt as buffer text and that text is
+	;; read only.  So we can no longer assume that (point-min)
+	;; is where the user-entered text starts and we must avoid
+	;; modifying that prompt text.  The value we want instead
+	;; of (point-min) is (minibuffer-prompt-end).
+	(point-min (if (fboundp 'minibuffer-prompt-end)
+		       (minibuffer-prompt-end)
+		     (point-min)))
 	trimmed-c-list c-list beg end diff word word-prefix-regexp completion)
     ;; find the beginning and end of the word we're trying to complete
     (if (or (eobp) (memq (following-char) '(?\t ?\n ?\ )))
 	(setq list (cdr list))))
     list))
 
+(defun vm-string-equal-ignore-case (str1 str2)
+  (let ((case-fold-search t)
+	(reg (regexp-quote str1)))
+    (and (equal 0 (string-match reg str2))
+	 (= (match-end 0) (length str2)))))
+
 (defun vm-time-difference (t1 t2)
   (let (usecs secs 65536-secs carry)
     (setq usecs (- (nth 2 t1) (nth 2 t2)))
 	 (vm-emit-eom-blurb))))
 
 (defun vm-emit-eom-blurb ()
-  (let ((vm-summary-uninteresting-senders-arrow ""))
+  (let ((vm-summary-uninteresting-senders-arrow "")
+	(case-fold-search nil))
     (message (if (and (stringp vm-summary-uninteresting-senders)
 		      (string-match vm-summary-uninteresting-senders
 				    (vm-su-from (car vm-message-pointer))))
 	    (widen)
 	    (append-to-buffer b (vm-headers-of message)
 			      (vm-text-end-of message))
-	    (setq end (vm-marker (+ start (- (vm-text-end-of message)
-					     (vm-headers-of message))) b))
+	    (set-buffer b)
+	    (setq end (point-marker))
 	    (if vm-display-using-mime
 		(progn
 		  (narrow-to-region start end)
       (funcall (or switch-function (function switch-to-buffer))
 	       (current-buffer))
       (if yank-action
-	  (funcall (car yank-action) (cdr yank-action)))
+	  (apply (car yank-action) (cdr yank-action)))
       (make-local-variable 'mail-send-actions)
       (setq mail-send-actions send-actions))))
-;;; Incremental search through a mail folder (for Lucid and FSF Emacs 19).
+;;; Incremental search through a mail folder (for Lucid and FSF Emacs 19)
 ;;; Copyright (C) 1994 Kyle E. Jones
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
-;;; Thread support for VM.
+;;; Thread support for VM
 ;;; Copyright (C) 1994 Kyle E. Jones
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
-;;; Interface functions to VM internal data.
+;;; Interface functions to VM internal data
 ;;; Copyright (C) 1997 Kyle E. Jones
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
   "*String to display before the string that is displayed instead of an
 \"uninteresting\" sender.  See `vm-summary-uninteresting-senders'.")
 
-(defvar vm-auto-center-summary nil
+(defvar vm-auto-center-summary 0
   "*Value controls whether VM will keep the summary arrow vertically
 centered within the summary window. A value of t causes VM to always
 keep arrow centered.  A value of nil means VM will never bother centering
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.