head	1.5;
access;
symbols
	pkgsrc-2013Q2:1.5.0.26
	pkgsrc-2013Q2-base:1.5
	pkgsrc-2012Q4:1.5.0.24
	pkgsrc-2012Q4-base:1.5
	pkgsrc-2011Q4:1.5.0.22
	pkgsrc-2011Q4-base:1.5
	pkgsrc-2011Q2:1.5.0.20
	pkgsrc-2011Q2-base:1.5
	pkgsrc-2009Q4:1.5.0.18
	pkgsrc-2009Q4-base:1.5
	pkgsrc-2008Q4:1.5.0.16
	pkgsrc-2008Q4-base:1.5
	pkgsrc-2008Q3:1.5.0.14
	pkgsrc-2008Q3-base:1.5
	cube-native-xorg:1.5.0.12
	cube-native-xorg-base:1.5
	pkgsrc-2008Q2:1.5.0.10
	pkgsrc-2008Q2-base:1.5
	pkgsrc-2008Q1:1.5.0.8
	pkgsrc-2008Q1-base:1.5
	pkgsrc-2007Q4:1.5.0.6
	pkgsrc-2007Q4-base:1.5
	pkgsrc-2007Q3:1.5.0.4
	pkgsrc-2007Q3-base:1.5
	pkgsrc-2007Q2:1.5.0.2
	pkgsrc-2007Q2-base:1.5
	pkgsrc-2007Q1:1.4.0.8
	pkgsrc-2007Q1-base:1.4
	pkgsrc-2006Q4:1.4.0.6
	pkgsrc-2006Q4-base:1.4
	pkgsrc-2006Q3:1.4.0.4
	pkgsrc-2006Q3-base:1.4
	pkgsrc-2006Q2:1.4.0.2
	pkgsrc-2006Q2-base:1.4
	pkgsrc-2006Q1:1.3.0.20
	pkgsrc-2006Q1-base:1.3
	pkgsrc-2005Q4:1.3.0.18
	pkgsrc-2005Q4-base:1.3
	pkgsrc-2005Q3:1.3.0.16
	pkgsrc-2005Q3-base:1.3
	pkgsrc-2005Q2:1.3.0.14
	pkgsrc-2005Q2-base:1.3
	pkgsrc-2005Q1:1.3.0.12
	pkgsrc-2005Q1-base:1.3
	pkgsrc-2004Q4:1.3.0.10
	pkgsrc-2004Q4-base:1.3
	pkgsrc-2004Q3:1.3.0.8
	pkgsrc-2004Q3-base:1.3
	pkgsrc-2004Q2:1.3.0.6
	pkgsrc-2004Q2-base:1.3
	pkgsrc-2004Q1:1.3.0.4
	pkgsrc-2004Q1-base:1.3
	pkgsrc-2003Q4:1.3.0.2
	pkgsrc-2003Q4-base:1.3
	buildlink2-base:1.3
	comdex-fall-1999:1.2
	netbsd-1-4-PATCH001:1.2
	netbsd-1-4-RELEASE:1.2;
locks; strict;
comment	@# @;


1.5
date	2007.06.11.13.57.21;	author markd;	state dead;
branches;
next	1.4;

1.4
date	2006.05.15.11.48.13;	author markd;	state Exp;
branches;
next	1.3;

1.3
date	99.12.28.14.09.15;	author tron;	state dead;
branches;
next	1.2;

1.2
date	99.02.25.18.00.29;	author sommerfe;	state Exp;
branches;
next	1.1;

1.1
date	99.02.25.17.08.34;	author sommerfe;	state Exp;
branches;
next	;


desc
@@


1.5
log
@Update emacs{,-nox11} to 22.1.

update based in part on wip/emacs-current and wip/emacs22 packages.

Many many changes since 21.4a.  Read NEWS file for details.
@
text
@$NetBSD: patch-ba,v 1.4 2006/05/15 11:48:13 markd Exp $

--- lisp/sort.el.orig	2001-07-16 04:15:34.000000000 +1200
+++ lisp/sort.el
@@@@ -493,7 +493,7 @@@@ Use \\[untabify] to convert tabs to spac
 	  ;; Use the sort utility if we can; it is 4 times as fast.
 	  ;; Do not use it if there are any properties in the region,
 	  ;; since the sort utility would lose the properties.
-	  (let ((sort-args (list (if reverse "-rt\n" "-t\n")
+	  (let ((sort-args (list (if reverse "-rt\t" "-t\t")
 				 (concat "+0." (int-to-string col-start))
 				 (concat "-0." (int-to-string col-end)))))
 	    (when sort-fold-case
@


1.4
log
@Fix sort-columns function.
NetBSD sort objects to setting the field separator to the same value as
the record separator.  Since in this case the surrounding code guarantees
there will be no tabs in the input set the field separator to tab.
Bump PKGREVISION.
@
text
@d1 1
a1 1
$NetBSD$
@


1.3
log
@Update "emacs" package to version 20.5a based on patches supplied by
Minoura Makoto in PR pkg/9014. This version fixes several bugs discovered
since version 20.3 and support a precompiled user startup file (".emacs.el"
and ".emacs.elc").
@
text
@d1 1
a1 1
$NetBSD: patch-ba,v 1.2 1999/02/25 18:00:29 sommerfe Exp $
d3 11
a13 89
--- lisp/mail/mh-comp.el-	Wed Jun 24 05:38:00 1998
+++ lisp/mail/mh-comp.el	Thu Feb 25 12:53:40 1999
@@@@ -147,6 +147,13 @@@@
 is searched for first in the user's MH directory, then in the
 system MH lib directory.")
 
+(defvar mh-repl-group-formfile "replgroupcomps"
+  "Name of file to be used as a skeleton for replying to the sender
+and all recipients of a messages.  Only used if mh-nmh-p is non-nil.
+Default is \"replgroupcomps\".  If not an absolute file name, the file
+is searched for first in the user's MH directory, then in the system
+MH lib directory.")
+
 ;;; Hooks:
 
 (defcustom mh-letter-mode-hook nil
@@@@ -217,7 +224,7 @@@@
 
 
 ;;;###autoload
-(defun mh-smail-batch (&rest ignored)
+(defun mh-smail-batch (&optional to subject other-headers &rest ignored)
   "Set up a mail composition draft with the MH mail system.
 This function is an entry point to mh-e, the Emacs front end
 to the MH mail system.  This function does not prompt the user
@@@@ -226,7 +233,7 @@@@
 Users should use `\\[mh-smail]' to compose mail."
   (mh-find-path)
   (let ((mh-error-if-no-draft t))
-    (mh-send "" "" "")))
+    (mh-send to "" subject)))
 
 
 (defun mh-edit-again (msg)
@@@@ -407,27 +414,35 @@@@
   (interactive (list (mh-get-msg-num t) current-prefix-arg))
   (let ((minibuffer-help-form
 	 "from => Sender only\nto => Sender and primary recipients\ncc or all => Sender and all recipients"))
-    (let ((reply-to (or mh-reply-default-reply-to
-			(completing-read "Reply to whom: "
-					 '(("from") ("to") ("cc") ("all"))
-					 nil
-					 t)))
-	  (folder mh-current-folder)
-	  (show-buffer mh-show-buffer)
-	  (config (current-window-configuration)))
+    (let* ((reply-to (or mh-reply-default-reply-to
+			 (completing-read "Reply to whom: "
+					  '(("from") ("to") ("cc") ("all"))
+					  nil
+					  t)))
+	   (folder mh-current-folder)
+	   (show-buffer mh-show-buffer)
+	   (config (current-window-configuration))
+ 	   (group-reply (or (equal reply-to "cc") (equal reply-to "all")))
+	   ;; mh-repl*formfile must be strings, but we're paranoid
+ 	   (form-file (cond ((and mh-nmh-p group-reply
+ 				  (stringp mh-repl-group-formfile))
+ 			     mh-repl-group-formfile)
+ 			    ((stringp mh-repl-formfile) mh-repl-formfile)
+ 			    (t nil))))
       (message "Composing a reply...")
       (mh-exec-cmd "repl" "-build" "-noquery" "-nodraftfolder"
-	     (if (stringp mh-repl-formfile) ;must be string, but we're paranoid
-		 (list "-form" mh-repl-formfile))
-	     mh-current-folder message
-	     (cond ((or (equal reply-to "from") (equal reply-to ""))
-		    '("-nocc" "all"))
-		   ((equal reply-to "to")
-		    '("-cc" "to"))
-		   ((or (equal reply-to "cc") (equal reply-to "all"))
-		    '("-cc" "all" "-nocc" "me")))
-	     (if includep
-		 '("-filter" "mhl.reply")))
+		   (if form-file
+		       (list "-form" form-file))
+		   mh-current-folder message
+		   (cond ((or (equal reply-to "from") (equal reply-to ""))
+			  '("-nocc" "all"))
+			 ((equal reply-to "to")
+			  '("-cc" "to"))
+			 (group-reply (if mh-nmh-p
+					  '("-group" "-nocc" "me")
+					'("-cc" "all" "-nocc" "me"))))
+		   (if includep
+		       '("-filter" "mhl.reply")))
       (let ((draft (mh-read-draft "reply"
 				  (expand-file-name "reply" mh-user-path)
 				  t)))
@


1.2
log
@Correct patches (last set didn't apply correctly).
@
text
@d1 1
a1 1
$NetBSD: patch-ba,v 1.1 1999/02/25 17:08:34 sommerfe Exp $
@


1.1
log
@Fix mh-e's use of nmh (previous patch was insufficient, as nmh is
split in three parts, not two; also, repl's interface changed in nmh
so reply-to-all was busted)
Fix report-emacs-bug.
Re-byte-compile patched mh-*.el
@
text
@d1 1
a1 1
$NetBSD$
d3 2
a4 2
--- mh-comp.el.~1~	Thu Feb 25 01:31:23 1999
+++ mh-comp.el	Thu Feb 25 11:45:24 1999
d37 1
a37 1
@@@@ -407,25 +414,32 @@@@
d42 4
a45 5
+    (let* ((reply-to (or mh-reply-default-reply-to
 			(completing-read "Reply to whom: "
 					 '(("from") ("to") ("cc") ("all"))
 					 nil
 					 t)))
d49 5
d57 7
a63 6
+	   (group-reply (or (equal reply-to "cc") (equal reply-to "all")))
+	   (form-file (cond ((and mh-nmh-p group-reply
+				  (stringp mh-repl-group-formfile))
+			     mh-repl-group-formfile)
+			    ((stringp mh-repl-formfile) mh-repl-formfile)
+			    (t nil))))
d68 5
a72 7
+	     (if form-file
+		 (list "-form" form-file))
 	     mh-current-folder message
 	     (cond ((or (equal reply-to "from") (equal reply-to ""))
 		    '("-nocc" "all"))
 		   ((equal reply-to "to")
 		    '("-cc" "to"))
d74 15
a88 6
-		    '("-group" "-cc" "all" "-nocc" "me")))
+		   (group-reply (if mh-nmh-p
+				    '("-group" "-nocc" "me")
+				  '("-cc" "all" "-nocc" "me"))))
 	     (if includep
 		 '("-filter" "mhl.reply")))
d90 2
@