about gotmail

wore <[email protected]> Wed, 19 Mar 2003 10:54:47 +0900
Newsgroups gmane.mail.gotmail
Message-ID <[email protected]>
Hi,
Current gotmail doesn't give params to procmail.
So, I added --procmail-opt option for me.

Here is the patch: gotmail-procmail-opt.patch

_______________________________________________
Gotmail-list mailing list
[email protected]
http://mail.nongnu.org/mailman/listinfo/gotmail-list
gotmail-procmail-opt.patch (application/octet-stream, 1.7 KB)
--- gotmail.orig	2003-03-19 09:54:34.000000000 +0900
+++ gotmail	2003-03-19 10:37:40.000000000 +0900
@@ -88,6 +88,7 @@
 my($conf_save_to_login) = 0;   # 0 = no, 1 = yes
 my($conf_procmail) = 0; # 0 = no, 1 = yes
 my($conf_procmail_bin) = '/usr/bin/procmail';
+my($conf_procmail_opt) = '';
 
 # Global variables...
 my($host) = ""; # The name of the hotmail server we are talking to...
@@ -169,6 +170,7 @@
 	print "  --use-procmail            Send all messages only to procmail\n";
 	print "  --procmail-bin <path>     Use this program as procmail (default is\n" .
 	      "                              /usr/bin/procmail) (implies --use-procmail)\n";
+	print "  --procmail-opt <option>   option of procmail\n" .
 	print "  --curl-bin <path>         Specify the path to the cURL program if it's\n" .
 	      "                              not in your path.\n";
 	print "  --silent                  Do not print messages\n";
@@ -260,6 +262,8 @@
 		} elsif ($_ =~ /^procmail-bin=(.+)$/i) {
 			$conf_procmail_bin = $1;
 			$conf_procmail = 1;
+		} elsif ($_ =~ /^procmail-opt=(.+)$/i) {
+			$conf_procmail_opt = $1;
 		} elsif ($_ =~ /^curl-bin=(.+)$/i) {
 			$conf_curl = $1;
 		}
@@ -399,6 +403,13 @@
 				dispUsageAndExit();
 			}
 		}
+		elsif ($element =~ /^--procmail-opt$/i) {
+			if (@ARGV) {
+				$conf_procmail_opt = shift(@ARGV);
+			} else {
+				dispUsageAndExit();
+			}
+		}
 		elsif ($element =~ /^--curl-bin$/i) {
 			if (@ARGV) {
 				$conf_curl = shift(@ARGV);
@@ -891,7 +902,7 @@
 			if ($conf_procmail) {
 				my($output) = getEmail($msg_url, 1, $foldername);
 				dispText("Sending mail message to procmail...");
-				open PR,"|" . $conf_procmail_bin;
+				open PR,"|" . "$conf_procmail_bin $conf_procmail_opt";
 				print PR $output;
 				close PR;
 				print "Done.\n";