[386] in bug-owl
activate_msg patch
daemon@ATHENA.MIT.EDU (Roman Mitz)
Wed Jun 1 10:07:35 2005
Mime-Version: 1.0 (Apple Message framework v730)
To: bug-owl@ktools.org
Message-Id: <7F2C1A58-1217-4213-A9C1-46C7320F4403@cmu.edu>
Content-Type: multipart/signed; micalg=sha1; boundary=Apple-Mail-27--258773057; protocol="application/pkcs7-signature"
From: Roman Mitz <rmitz@cmu.edu>
Date: Wed, 1 Jun 2005 17:07:43 +0300
--Apple-Mail-27--258773057
Content-Type: multipart/mixed;
boundary=Apple-Mail-26--258773371
--Apple-Mail-26--258773371
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
delsp=yes;
format=flowed
This is a quick patch for adding support for a perl function which is
called upon a new message being selected, i.e. the up and down
arrows. I'm not sure if there are other ways that happens,
actually. Anyway, this patch is pretty small since the hooks were
all there to do it.
I didn't bother doing something for providing the legacy variables in
perl because 1) they're deprecated anyway and 2) running $m-
>legacy_populate_global(); really isn't that much to ask, since this
is a new feature.
Let me know if you'd like me to add or do something different here.
--Apple-Mail-26--258773371
Content-Transfer-Encoding: 7bit
Content-Type: application/octet-stream;
x-unix-mode=0600;
name="activate_msg.patch"
Content-Disposition: attachment;
filename=activate_msg.patch
diff -r -U 3 owl-2.1.8-clean/functions.c owl-2.1.8/functions.c
--- owl-2.1.8-clean/functions.c 2004-05-08 02:35:40.000000000 +0300
+++ owl-2.1.8/functions.c 2005-06-01 16:48:23.000000000 +0300
@@ -611,6 +611,7 @@
owl_function_calculate_topmsg(OWL_DIRECTION_DOWNWARDS);
owl_mainwin_redisplay(owl_global_get_mainwin(&g));
owl_global_set_direction_downwards(&g);
+ owl_perlconfig_getmsg(m, 0, "owl::activate_msg");
}
}
@@ -660,6 +661,7 @@
owl_function_calculate_topmsg(OWL_DIRECTION_UPWARDS);
owl_mainwin_redisplay(owl_global_get_mainwin(&g));
owl_global_set_direction_upwards(&g);
+ owl_perlconfig_getmsg(m, 0, "owl::activate_msg");
}
}
diff -r -U 3 owl-2.1.8-clean/perlconfig.c owl-2.1.8/perlconfig.c
--- owl-2.1.8-clean/perlconfig.c 2004-05-08 02:35:40.000000000 +0300
+++ owl-2.1.8/perlconfig.c 2005-06-01 16:48:04.000000000 +0300
@@ -293,7 +293,7 @@
* formatted message needs to be freed by the caller.
*
* if mode==0 we are just doing the message-has-been-received
- * thing.
+ * thing OR an arbitrary perl function call.
*/
if (!owl_global_have_config(&g)) return(NULL);
@@ -308,7 +308,8 @@
return ret;
} else {
char *ptr = NULL;
- if (owl_perlconfig_is_function("owl::receive_msg")) {
+ if ((subname && owl_perlconfig_is_function(subname)) ||
+ (!subname && owl_perlconfig_is_function("owl::receive_msg"))) {
owl_perlconfig_call_with_message(subname?subname
:"owl::_receive_msg_legacy_wrap", m);
}
--Apple-Mail-26--258773371
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
format=flowed
Roman.
------
Server Systems Manager
Carnegie Mellon University Qatar Campus
--Apple-Mail-26--258773371--
--Apple-Mail-27--258773057
Content-Transfer-Encoding: base64
Content-Type: application/pkcs7-signature;
name=smime.p7s
Content-Disposition: attachment;
filename=smime.p7s
MIAGCSqGSIb3DQEHAqCAMIACAQExCzAJBgUrDgMCGgUAMIAGCSqGSIb3DQEHAQAAoIIGDjCCAscw
ggIwoAMCAQICAw3KBjANBgkqhkiG9w0BAQQFADBiMQswCQYDVQQGEwJaQTElMCMGA1UEChMcVGhh
d3RlIENvbnN1bHRpbmcgKFB0eSkgTHRkLjEsMCoGA1UEAxMjVGhhd3RlIFBlcnNvbmFsIEZyZWVt
YWlsIElzc3VpbmcgQ0EwHhcNMDUwMTEyMDgxMzU4WhcNMDYwMTEyMDgxMzU4WjA/MR8wHQYDVQQD
ExZUaGF3dGUgRnJlZW1haWwgTWVtYmVyMRwwGgYJKoZIhvcNAQkBFg1ybWl0ekBjbXUuZWR1MIIB
IjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAvbB8UmyFCA2p5lOw7yZAvRXwOnqFs0Wm1W7X
1uH/YQzyJMiAZNFFxybBeQv1saZ9I2M0wAWzWPb2o3jrOHI5hEMGBEk0LHJ263YUj+J8IYmLP9t1
RNf4IRfFL+bt224nXpeGG5uVuNSpURLOMYQLJlPNOEwF+kgMqguPs7e3MgrVUCMmFcT8KVAqsUro
C3P4naNuun4Klf1zjewFTVYhMsih9pnNluIRhhRVOruaN0q3F9GPRxczqHfkMOoUtgvU6zxNO0WT
wh2e8fkqgKqoSU9WLmIpXeoFqYH7EFbDamyutqF2k5XCmGlJLkLlurStQkc/gkBPE3ZcxI4JTBJ4
CwIDAQABoyowKDAYBgNVHREEETAPgQ1ybWl0ekBjbXUuZWR1MAwGA1UdEwEB/wQCMAAwDQYJKoZI
hvcNAQEEBQADgYEAcNZQh4fjh5LbOuIfNKDHsrSEKAs9hgvbJQUzl08xNlFX+RP+7WHLwSb8fZl/
9dxDmRc9nxA7KxHBo2cDLbSQpOcupfDVJUGCFcbz8rJlrBk27QxNzXK/+k4PYdX5Ko0r3/OHz2/g
mPzZUcFtTwCIMhnsER7bHto4sUxoHDkCJ6AwggM/MIICqKADAgECAgENMA0GCSqGSIb3DQEBBQUA
MIHRMQswCQYDVQQGEwJaQTEVMBMGA1UECBMMV2VzdGVybiBDYXBlMRIwEAYDVQQHEwlDYXBlIFRv
d24xGjAYBgNVBAoTEVRoYXd0ZSBDb25zdWx0aW5nMSgwJgYDVQQLEx9DZXJ0aWZpY2F0aW9uIFNl
cnZpY2VzIERpdmlzaW9uMSQwIgYDVQQDExtUaGF3dGUgUGVyc29uYWwgRnJlZW1haWwgQ0ExKzAp
BgkqhkiG9w0BCQEWHHBlcnNvbmFsLWZyZWVtYWlsQHRoYXd0ZS5jb20wHhcNMDMwNzE3MDAwMDAw
WhcNMTMwNzE2MjM1OTU5WjBiMQswCQYDVQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1bHRp
bmcgKFB0eSkgTHRkLjEsMCoGA1UEAxMjVGhhd3RlIFBlcnNvbmFsIEZyZWVtYWlsIElzc3Vpbmcg
Q0EwgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAMSmPFVzVftOucqZWh5owHUEcJ3f6f+jHuy9
zfVb8hp2vX8MOmHyv1HOAdTlUAow1wJjWiyJFXCO3cnwK4Vaqj9xVsuvPAsH5/EfkTYkKhPPK9Xz
gnc9A74r/rsYPge/QIACZNenprufZdHFKlSFD0gEf6e20TxhBEAeZBlyYLf7AgMBAAGjgZQwgZEw
EgYDVR0TAQH/BAgwBgEB/wIBADBDBgNVHR8EPDA6MDigNqA0hjJodHRwOi8vY3JsLnRoYXd0ZS5j
b20vVGhhd3RlUGVyc29uYWxGcmVlbWFpbENBLmNybDALBgNVHQ8EBAMCAQYwKQYDVR0RBCIwIKQe
MBwxGjAYBgNVBAMTEVByaXZhdGVMYWJlbDItMTM4MA0GCSqGSIb3DQEBBQUAA4GBAEiM0VCD6gsu
zA2jZqxnD3+vrL7CF6FDlpSdf0whuPg2H6otnzYvwPQcUCCTcDz9reFhYsPZOhl+hLGZGwDFGguC
dJ4lUJRix9sncVcljd2pnDmOjCBPZV+V2vf3h9bGCE6u9uo05RAaWzVNd+NWIXiC3CEZNd4ksdMd
Rv9dX2VPMYIC5zCCAuMCAQEwaTBiMQswCQYDVQQGEwJaQTElMCMGA1UEChMcVGhhd3RlIENvbnN1
bHRpbmcgKFB0eSkgTHRkLjEsMCoGA1UEAxMjVGhhd3RlIFBlcnNvbmFsIEZyZWVtYWlsIElzc3Vp
bmcgQ0ECAw3KBjAJBgUrDgMCGgUAoIIBUzAYBgkqhkiG9w0BCQMxCwYJKoZIhvcNAQcBMBwGCSqG
SIb3DQEJBTEPFw0wNTA2MDExNDA3NDRaMCMGCSqGSIb3DQEJBDEWBBQ9WUiem65fNm6EaidpCNK3
h3m5RTB4BgkrBgEEAYI3EAQxazBpMGIxCzAJBgNVBAYTAlpBMSUwIwYDVQQKExxUaGF3dGUgQ29u
c3VsdGluZyAoUHR5KSBMdGQuMSwwKgYDVQQDEyNUaGF3dGUgUGVyc29uYWwgRnJlZW1haWwgSXNz
dWluZyBDQQIDDcoGMHoGCyqGSIb3DQEJEAILMWugaTBiMQswCQYDVQQGEwJaQTElMCMGA1UEChMc
VGhhd3RlIENvbnN1bHRpbmcgKFB0eSkgTHRkLjEsMCoGA1UEAxMjVGhhd3RlIFBlcnNvbmFsIEZy
ZWVtYWlsIElzc3VpbmcgQ0ECAw3KBjANBgkqhkiG9w0BAQEFAASCAQCtlOJn7nItpt8almZgDZPP
Rgi/VmSb1zEew4adJ+RpilFlH213FWp6MO/KwndhEo8OiTwcWFKcpBL9C7De4ONtrsZ6cLJH1AJP
zZyeDF9oLgO9BgeqJbDMuzgF9yrvzAG2HhB9qIbfCmHRb5q81nDnO3wzPt8EvJUXx8ZZfVhad4v8
+IYRgow+Y5UipJAOVfPpyBz2rddbg/+WdcJvDopAnMY2rAm2lOqI1nx9GfRdPZh5B8B/9WpcQkBW
rTHV4N4Ua2HQ5EGxkUDsDQmHJKGFTLcjfNwR2fm1LArxMSQxpE4EzPQOFPJ03dlfedoJL6B+VVZS
53bS/PH3sgf5oqnRAAAAAAAA
--Apple-Mail-27--258773057--
