Update of mhonarc/MHonArc/lib
Modified Files:
mhamain.pl mhinit.pl
Log Message:
[bug #2641]: Added $CBMailFolderRead and $CBMessageConverted. When
and how they are invoked are described in API appendix of docs.
======================================================================
FILE: mhonarc/MHonArc/lib/mhamain.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhamain.pl?rev=2.86>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhamain.pl.diff?r1=2.85&r2=2.86&diff_format=h>
--- mhamain.pl 7 Jul 2005 05:32:20 -0000 2.85
+++ mhamain.pl 8 Jul 2005 02:04:06 -0000 2.86
@@ -300,4 +300,12 @@
$handle, $index, $fields, $NoMsgPgs))) {
$AddIndex{$index} = 1;
+ ## Invoke callback if defined
+ if (defined($CBMessageConverted) &&
+ defined(&$CBMessageConverted)) {
+ &$CBMessageConverted($fields, +{
+ folder => undef,
+ file => '-',
+ });
+ }
}
}
@@ -325,5 +333,5 @@
local($_);
MHFILE: foreach (@files) {
- $mesgfile = "${mbox}${DIRSEP}${_}";
+ $mesgfile = join($DIRSEP, $mbox, $_);
eval {
$fh = file_open($mesgfile);
@@ -352,4 +360,13 @@
delete $Message{$index};
}
+ ## Invoke callback if defined
+ if (defined($CBMessageConverted) &&
+ defined(&$CBMessageConverted)) {
+ &$CBMessageConverted($fields, +{
+ folder => $mbox,
+ file => $mesgfile,
+ });
+ }
+
} else {
$index = undef;
@@ -394,4 +411,12 @@
delete $Message{$index};
}
+ ## Invoke callback if defined
+ if (defined($CBMessageConverted) &&
+ defined(&$CBMessageConverted)) {
+ &$CBMessageConverted($fields, +{
+ folder => $mbox,
+ file => undef,
+ });
+ }
} else {
$index = undef;
@@ -406,4 +431,11 @@
} # END: else UUCP mailbox
+
+ ## Invoke callback if defined
+ if (defined($CBMailFolderRead) &&
+ defined(&$CBMailFolderRead)) {
+ &$CBMailFolderRead($mbox);
+ }
+
} # END: foreach $mbox
} # END: Else converting mailboxes
======================================================================
FILE: mhonarc/MHonArc/lib/mhinit.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhinit.pl?rev=2.53>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhinit.pl.diff?r1=2.52&r2=2.53&diff_format=h>
--- mhinit.pl 15 Dec 2004 20:33:39 -0000 2.52
+++ mhinit.pl 8 Jul 2005 02:04:06 -0000 2.53
@@ -65,4 +65,14 @@
unless defined($CBRawMessageBodyRead);
+## After a message has been converted
+## &$invoke($fields, +{ folder => $filename, file => $filename });
+$CBMessageConverted = undef
+ unless defined($CBMessageConverted);
+
+## After a mail folder has been read
+## &invoke($filename);
+$CBMailFolderRead = undef
+ unless defined($CBMailFolderRead);
+
## When a resource variable is being expanded:
## ($result, $recurse, $canclip) = &invoke($index, $varname, $arg);
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS